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Introduction 


This is a language reference manual for the Microsofts FOR- 
TRAN language system. MSm-FORTRAN conforms to Subset 
FORTRAN, as described in ANSI X3.9-1978. MS-FORTRAN 
includes extensions to the subset language and some of the fea- 
tures of the full ANSI standard, commonly known as FORTRAN 
77. See Appendix A, “Microsoft FORTRAN and ANSI Subset 
FORTRAN,” for details. 


The syntactical rules for using FORTRAN are rigorous and 
require the programmer to fully define the characteristics of the 
solution to a problem in a series of precise statements. Therefore, 
we recommend that you have a general understanding of some 
dialect of FORTRAN before using this product. This manual is 
nota tutorial; fora list of suggested FORTRAN texts, see ‘““Learn- 
ing More About FORTRAN” in this introduction. 


Reference Manual Organization 


Chapter 1, “Language Overview,” is general in scope, providing a 
broad picture of the MS-FORTRAN language. Later chapters 
discuss the elements of the language in more detail. 


Chapter 2, “Terms and Concepts,” describes the smaller elements 
of the language, from notation to data types to expressions, and 
explains program structure. 


Chapter 3, “Statements,” defines MS-FORTRAN statements, 
both executable and nonexecutable. 


Chapter 4, “The I/O System,” provides additional information 
about input and output and the MS-FORTRAN file system. 


Chapter 5, “Programs, Subroutines, and Functions,” describes 


the subroutine structure, including argument passing and intrin- 
sic (system-provided) functions. 
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Chapter 6, “The Microsoft FORTRAN Metacommands,” de- 
scribes the syntax and use of the metacommands. 


Appendix A, “Microsoft FORTRAN and ANSI Subset FOR- 
TRAN,” describes the differences between MS-FORTRAN and 
ANSI Subset FORTRAN. 


Appendix B, “ASCII Character Codes,” is a table of the entire 
ASCII character set. 


Appendix C describes the structure of external Microsoft 
FORTRAN files. 


For information on how to use the MS-FORTRAN Compiler and 
the details of your specific version of MS-FORTRAN, see the 
Microsoft FORTRAN Compiler User’s Guide. 


Descriptive Devices 


The following descriptive devices are used throughout this man- 
ual to emphasize elements of the text. Descriptions of Microsoft 
syntax requirements for statements can be found in Chapter 3 of 
the Microsoft FORTRAN Reference Manual. 


CAPS Capitalized text indicates statements, files, or com- 
mands. The text is capitalized only to emphasize 
procedures, files, compilands, or objects that the 
user may encounter. Microsoft FORTRAN is not 
case sensitive. Small capitals indicate that you 
must press a key named by the text. 


Italics Italics indicate user-supplied data; for example, 
filenames, variable names, and array names. 


Ly Square brackets indicate that the enclosed entry is 
optional (e.g., A[w] indicates that either A or A12 is 
valid). 


Ellipses indicate that an entry may be repeated as 

many times as needed or desired. For example, the 

EXTERNAL statement is described as follows: 
EXTERNAL name [, name]... 

The syntactic items denoted by name may be re- 


peated any number of times, separated by commas. 
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All other punctuation, such as commas, colons, slash marks, 
parentheses, and equal signs, must be entered exactly as shown. 


Blanks normally have no significance in the description of MS- 
FORTRAN statements. The general rules for blanks, covered in 
Section 2.1.2, “Blanks,” govern the interpretation of blanks in all 
contexts. 


Pressing the RETURN (or ENTER) key is assumed at the end of every 
line you enter in response to a prompt. Only if this is the only 
response required is RETURN shown. 


Learning More About FORTRAN 


The manuals in this package provide complete reference informa- 
tion for your implementation of the MS-FORTRAN Compiler. 
They do not, however, teach you how to write programs in FOR- 
TRAN. If you are new to FORTRAN or need help in learning to 
program, we suggest you read any of the following books: 


Agelhoff, R., and Richard Mojena. Applied FORTRAN 77, 
Featuring Structured Programming. Wadsworth, 1981. 


Ashcroft, J., R.H. Eldridge, R.W. Paulson, and G. A. Wilson. 
Programming With FORTRAN 77. Granada, 1981. 


Friedman, F. and E. Koffman. Problem Solving and Struc- 
tured Programming in FORTRAN. Addison-Wesley, 2nd edi- 
tion, 1981. 


Wagener, J. L. FORTRAN 77: Principles of Programming. 
Wiley, 1980. 
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Chapter 1 
Language Overview 


1.1 Microsoft FORTRAN Metacommands 


1.2 Programs and Compilable 
Parts of Programs 4 


1.3 Input/Output 5 
1.4 Statements 7 
1.5 Expressions 8 
1.6 Names 9 

1.7 Types 10 

1.8 Lines 11 

1.9 Characters 12 


This chapter provides a summary description of the elements of 
the Microsoft FORTRAN (MS-FORTRAN) language. The re- 
maining chapters of the manual provide detailed information on 
these elements, from the character set to the metacommands. 


1.1 Microsoft FORTRAN Metacommands 


The metalanguage is the control language for the MS-FORTRAN 
Compiler. Metacommands let you specify options that affect the 
overall operation of a compilation. For example, with metacom- 
mands you can enable or disable generation of a listing file, 
runtime error checking code, or use of MS-FORTRAN features 
that are not a part of the subset or full language standard. The 
metalanguage consists of commands that appear in your source 
code, each on a line of its own and each with a dollar sign ($) in 
column one. The metalanguage is a level of language designed to 
enhance your use of the MS-FORTRAN Compiler. Although most 
implementations of FORTRAN have some type of compiler con- 
trol, the Microsoft FORTRAN metacommands are not part of 
standard FORTRAN (and hence, not portable). These are the 
metacommands currently available: 


$DEBUG $LIST 
S$DECMATH $NOLIST 
S5NODEBUG $MESSAGE 
$DO66 $PAGE 
SFLOATCALLS S$PAGESIZE 
SNOFLOATCALLS $STORAGE 
sINCLUDE $STRICT 
SLARGE SNOTSTRICT 
SNOTLARGE SSUBTITLE 
$SLINESIZE $TITLE 


See Chapter 6, “The Microsoft FORTRAN Metacommands,” fora 
complete discussion of metacommands. 
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1.2 


Programs and Compilable 
Parts of Programs 


The MS-FORTRAN Compiler processes program units. A pro- 
gram unit may be a main program, a subroutine, a function ora 
block data subprogram. You can compile any of these units 
separately and later link them together without having to recom- 
pile them as a whole. 


1. 


Program 


Any program unit that does not have a FUNCTION or 
SUBROUTINE statement as its first statement. The first 
statement may be a PROGRAM statement, but such a 
statement is not required. The execution of a program 
always begins with the first executable statement in the 
main program. Consequently, there must be one and only 
one main program in every executable program. 


Subroutine 


A program unit that can be called from other program 
units by a CALL statement. When called, a subroutine 
performs the set of actions defined by its executable 
statements and then returns control to the statement 
immediately following the statement that called it. A sub- 
routine does not directly return a value, although values 
can be passed back to the calling program unit via argu- 
ments or common variables. 


Function 


A program unit referred to in an expression. A function 
directly returns a value that is used in the computation of 
that expression and in addition may pass back values via 
arguments. There are three kinds of functions: external, 
intrinsic, and statement. (Statement functions cannot be 
compiled separately.) 


Block Data Subprogram 


A program unit that provides initial values for variables 
in COMMON blocks. Variables are normally initialized 
with DATA statements. Variables in COMMON may not 
be initialized anywhere other than in block data sub- 
programs. 


Language Overview 


Subroutines and functions let you develop large structured pro- 
grams that can be broken into parts. This is advantageous in the 
following situations: 


1. Ifaprogramis large, breaking it into parts makes it easier 
to develop, test, and maintain. 


2. Ifaprogram is large and recompiling the entire source file 
is time consuming, breaking the program into parts saves 
compilation time. 


3. If you intend to include certain routines in a number of 
different programs, you can create a single object file that 
contains these routines and then link it to each of the 
programs in which the routines are used. 


4. Ifaroutine could be implemented in any of several ways, 
you might place it in a file and compile it separately. 
Then, to improve performance, you can alter the imple- 
mentation, or even rewrite the routine in assembly lan- 
guage or in MS-Pascal, and the rest of your program will 
not need to change. 


See Chapter 5, “Programs, Subroutines, and Functions,” for a 
complete discussion of compilable program units. 


1.3. Input/Output 


Input is the transfer of data from an external medium or an 
internal file to internal storage. The transfer process is called 
reading. Output is the transfer of data from internal storage to an 
external medium or to an internal file. This process is called 
writing. 


A number of statements in FORTRAN are provided specifically 
for the purpose of such data transfer; some I/O statements also 
specify that some editing of the data be performed. 


In addition to the statements that transfer data, there are several 
auxiliary I/O statements to manipulate the external medium or to 
determine or describe the properties of the connection to the 
external medium. 
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The following concepts are also important for understanding the 
I/O system: 


1, 


Records 


The building blocks of the FORTRAN file system. A 
record is a sequence of characters or values. There are 
three kinds of records: formatted, unformatted, and 
endfile. 


Files 
Sequences of records. Files are either external or internal. 


An external file is a file on a device or a device itself. An 
internal file is a character variable that serves as the 
source or destination of some formatted I/O action. 


Files have the following properties: 

a. a filename (optional) 

b. a file position 

c. structure (formatted, unformatted, or binary) 
d. access method (sequential or direct) 


Although a wide variety of file types are possible, most 
applications will need just two: implicitly opened and 
explicitly opened external, sequential, formatted files. 


See Section 3.2, “Statement Directory,” for descriptions of indi- 
vidual I/O statements. See Chapter 4, “The I/O System,” for a 
complete discussion of records, files, and formatted data editing. 


Language Overview 
1.4 Statements 


Statements perform a number of functions, such as computing, 
storing the results of computations, altering the flow of control, 
reading and writing files, and providing information for the com- 
piler. Statements in FORTRAN fall into two broad classes: execu- 
table and nonexecutable. 


An executable statement causes an action to be performed. Non- 
executable statements do not in themselves cause operations to be 
performed. Instead, they specify, describe, or classify elements of 
the program, such as entry points, data, or program units. Table 
1.2 describes the functional categories of statements. 
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Table 1.1 


Categories of Statements in FORTRAN 


Category 


Description 


Assignment 
Comment 
Control 
DATA 
FORMAT 


1/O 


Specification 


Statement 
Function 
Program 
Unit 
Heading 


Executable. Assigns a value toa variable or an 
array element. 


Nonexecutable. Allows comments within pro- 
gram code. 


Executable. Controls the order of execution of 
statements. 


Nonexecutable. Assigns initial values to vari- 
ables. 


Nonexecutable. Provides data editing infor- 
mation. 


Executable. Specifies sources and destinations 
of data transfer, and other facets of I/O 
operation. 


Nonexecutable. Defines the attributes of vari- 
ables, arrays, and programmer function names. 
Nonexecutable. Defines a simple, locally used 
function. 

Nonexecutable. Defines the start of a program 
unit and specifies its formal arguments. 


See Chapter 3, “Statements,” for a complete discussion and a 
directory of MS-FORTRAN statements. 


1.5 Expressions 


An expression is a formula for computing a value. It consists of a 
sequence of operands and operators. The operands may contain 
function invocations, variables, constants, or even other expres- 
sions. The operators specify the actions to be performed on the 


operands. 
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In the following expression, plus (+) is an operator and A and B 
are operands: 


A+B 
There are four basic kinds of expressions in FORTRAN: 


1. arithmetic expressions 
2. character expressions 
3. relational expressions 
4. logical expressions 
Each type of expression takes certain types of operands and uses 


a specific set of operators. Evaluation of every expression produ- 
ces a value of a specific type. 


Expressions are not statements, but may be components of 
statements. In the following example, the entire line is a state- 
ment; only the portion after the equal sign is an expression: 


X=2.0/3.0+A*B 


See Section 2.5, “Expressions,” for a discussion of expressions in 
MS-FORTRAN. 


1.6 Names 


Names denote the variables, arrays, functions, or subroutines in 
your program, whether defined by you or by the MS-FORTRAN 
system. A FORTRAN name consists of a sequence of alphanu- 
meric characters. The following restrictions apply: 


1. The maximum number of characters in a name is 1320 
characters (66 characters per line multiplied by twenty 
lines). 


2. The initial character must be alphabetic; subsequent 
characters must be alphanumeric. 


Blanks are skipped. 


Only the first six alphanumeric characters are signifi- 
cant; the rest are ignored. 
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With these restrictions regarding the make-up of the name, any 
valid sequence of characters can be used for any FORTRAN 
name. There are no reserved names as in other languages. 


Sequences of alphabetic characters used as keywords by the MS- 
FORTRAN Compiler are not confused with user-defined names. 
The compiler recognizes keywords by their context and in no way 
restricts the use of user-defined names. Thus, for example, a pro- 
gram can have an array named IF, READ, or GOTO, with no 
error (as long as it otherwise conforms to the rules that all arrays 
must obey). However, use of keywords for user-defined names 
often interferes with the readability of a program, so the practice 
should be avoided. 


See Section 2.4, “Names,” for more information on the scope and 
use of names in MS-FORTRAN. 


1.7 Types 


Data in MS-FORTRAN belongs to one of five basic types: 


integer (INTEGER*2 and INTEGER*4) 

single precision real (REAL*4 or REAL) 

double precision real (REAL*8 or DOUBLE PRECISION) 
logical (LOGICAL*2 and LOGICAL*4) 

complex (COMPLEX*8 and COMPLEX*16) 

character (CHARACTER) 


Ce SY oe Ce oS 


Data types can be declared. If not declared, the type of aname is 
determined by its first letter (either by default or by an IMPLICIT 
statement). A type statement can also include dimension infor- 
mation. 


See Section 2.3, “Data Types,” for a more complete discussion of 


MS-FORTRAN data types. See Section 3.2, “Statement Direc- 
tory,” for a detailed description of the type statement. 
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1.8 Lines 


Lines are composed of a sequence of characters. Characters 
beyond the 72nd on a line are ignored; lines shorter than 72 char- 
acters are assumed to be padded with blanks. 


The position of characters within a line in FORTRAN is signifi- 
cant. Characters in columns | through 5 are recognized as a 
statement label, a character in column 6 as a continuation indica- 
tor, and characters in columns 7 through 72 as the FORTRAN 
statements themselves. Comments are recognized by either the 
letter “C” or an asterisk (*) in column 1, metacommands by a 
dollar sign ($) in column 1. 


With some exceptions, blanks are not significant in FORTRAN. 
Tab characters have significance in a few circumstances, de- 
scribed in Section 2.1, “Notation.” 


Lines in MS-FORTRAN may serve as any of the following: 


a metacommand line 
a comment line 


an initial line (of a statement) 


pe ee Se 


a continuation line (of a statement) 


A metacommand line has a dollar sign in column 1 and controls 
the operation of the MS-FORTRAN Compiler. 


Acomment line has either a “C”’, a “‘c’’, or an asterisk in column 1, 
or the line is entirely blank and is ignored during processing. 


An initial line of a statement has either a blank or a zero in 
column 6 and has either all blanks or a statement labelin columns 
1 through 5. 


A continuation line is any line that is not a metacommand line, a 
comment line, or an initial line, and which has blanks in columns 
1 through 5, and in column 6 has a character that is not a blank or 
zero. 
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See Section 2.2, “Lines and Statements,” for details on the specific 
uses and limitations on the several kinds of lines in MS- 
FORTRAN and how statements are combined to form programs 
and compilable parts of programs. 


1.9 Characters 


In the most basic sense, a FORTRAN program is a sequence of 
characters. When these characters are submitted to the compiler, 
they are interpreted in various contexts as characters, names, 
labels, constants, lines, and statements. 


The characters used in an MS-FORTRAN source program belong 
to the ASCII character set, a complete listing of which is given in 
Appendix B, “ASCII Character Codes.” Briefly, however, the 
character set may be divided into three groups: 


1. the52 uppercase and lowercase alphabetic characters (A 
through Z and a through z) 


the 10 digits (0 through 9) 


special characters (all other printable characters in the 
ASCII character set) 


See Section 2.1, “Notation,” for more information about the use of 
characters in MS-FORTRAN. 


12 


Chapter 2 
Terms and Concepts 


2h 

2.1.1 
Za 
2.1.3 
2.1.4 
2.2 

ek 
2.2.2 
2.2.3 
2.2.4 
2.3 

2.3.1 
2.3.2 


2.3.3 


2.3.4 
2.3.5 
2.3.6 
2.4 

2.4.1 
2.4.2 
2.0 


Notation 15 


Alphanumeric Characters 15 
Blanks 15 

Tabs 16 

Columns 16 


Lines and Statements 16 


Initial Lines 17 
Continuation Lines 17 
Comment Lines 17 
Statement Definition and Order 


Data Types 20 


Integer Data Types 22 


The Single Precision 
IKEE Real Data Type 23 


The Double Precision 
IEEE Real Data Type 24 


Complex Data Types 26 
Logical Data Types 27 
The Character Data Type 27 


Names 28 
Scope of FORTRAN Names 29 


Undeclared FORTRAN Names 


Expressions 3l 


18 


30 


13 


2.0.1 
2.0.2 
2.0.3 


2.5.4 
2.5.0 
2.5.6 
2.0.1 
2.5.8 
2.0.9 


14 


Arithmetic Expressions al 
Integer Division 33 


Type Conversions of 
Arithmetic Operands 33 


Character Expressions 34 
Relational Expressions 35 
Logical Expressions 36 
Precedence of Operators 38 
Rules for Evaluating Expressions 
Array Element References 38 


38 


2.1 Notation 


A FORTRAN source program is a sequence of ASCII characters. 
The ASCII character codes include: 


1. 52 uppercase and lowercase letters (A through Z and a 
through z) 
10 digits (0, 1, 2, 3, 4, 5, 6, 7, 8, and 9) 


special characters (the remaining printable characters of 
the ASCII character code) 


2.1.1 Alphanumeric Characters 


The letters and digits, treated as a single group, are called the 
alphanumeric characters. MS-FORTRAN interprets lowercase 
letters as uppercase letters in all contexts but character constants 
and Hollerith fields. Thus, the following user-defined names are 
all equivalent in MS-FORTRAN: 


ABCDE abcde AbCdE  aBcDe 


The collating sequence for the MS-FORTRAN character set is the 
ASCII sequence (see Appendix B, ‘““ASCII Character Codes,” fora 
complete table of the ASCII characters). 


2.1.2 Blanks 


With the exceptions noted in the following list, the blank charac- 
ter has no significance in an MS-FORTRAN source program and 
may therefore be used for improving readability. The exceptions 
are the following: 
1. Blanks within string constants are significant. 
Blanks within Hollerith fields are significant. 


A blank or zero in column 6 distinguishes initial lines 
from continuation lines. 


15 
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2.1.3 Tabs 


The TAB character has the following significance in an MS- 
FORTRAN source program: 


1. If the TAB appears in columns 1 through 5, the next 
character on the source line is considered to be in column 
7. 


2. A TAB appearing in columns 6 through 72 is considered 
to be a blank, even if it appears in a string or Hollerith 
literal. 


2.1.4 Columns 


The characters in a given line are positioned by columns, with the 
first character in column 1, the second in column 2, and so forth. 


The column in which a character resides is significant in FOR- 
TRAN. Column 1 is used for comment indicators and metacom- 
mand indicators. Columns | through 5 are reserved for statement 
labels and column 6 for continuation indicators. 


2.2 Lines and Statements 


Youcan also think of a FORTRAN source program as a sequence 
of lines. Only the first 72 characters in a line are treated as 
significant by the compiler, with any trailing characters in a line 
ignored. Lines with fewer than 72 characters are assumed to be 
padded with blanks to 72 characters. 


Note 


This is not usually important unless the blanks are part of a 
Hollerith or literal string. For an illustration, see Section 2.3.6, 
“The Character Data Type,” which describes character 
constants. 
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2.2.1 Initial Lines 


An initial line is any line that is not a comment line or a meta- 
command line and that contains a blank or a zero character in 
column 6. The first five columns of the line must either be all blank 
or contain a label. With the exception of the statement following a 
logical IF, FORTRAN statements begin with an initial line. 


A statement label is a sequence of one to five digits, at least one of 
which must be nonzero. A label may be placed anywhere in 
columns 1 through 5 of an initial line. Blanks and leading zeros 
are not significant. 


2.2.2 Continuation Lines 


A continuation line is any line that is not a comment line or a 
metacommand line and that contains any character in column 6 
other than a blank or a zero. The first five columns of a continua- 
tion line must be blanks. A continuation line increases the 
amount of room in which to write a statement. Ifit will not fitona 
single initial line, it may be extended to include up to 19 continua- 
tion lines. 


2.2.3. Comment Lines 


A line is treated as a comment line if any one of the following 
conditions is met: 

1. a“C” (or “c’”) appears in column 1 

2. an asterisk (*) appears in column 1 

3. the line is empty or contains all blanks 
Comment lines do not affect the execution of the FORTRAN 
program in any way. Comment lines must be followed imme- 


diately by an initial line or another comment line. They must not 
be followed by a continuation line. 
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2.2.4 Statement Definition and Order 


A FORTRAN statement consists of an initial line, followed by 
zero to nineteen continuation lines. A statement may contain as 
many as 1320 characters in columns 7 through 72 of the initial 
line and columns 7 through 72 of the continuation lines. The END 
statement must be written within columns 7 through 72 of an 
initial line, and no other statement may have an initial line that 
appears to be an END statement. (In the following discussion, 
individual statements are simply referred to by name; see Chapter 
3, “Statements,” for definitions of specific statements and their 
properties.) 


The FORTRAN language enforces a certain ordering of the 
statements and lines that make up a FORTRAN program unit. In 
addition, MS-FORTRAN enforces additional requirements in the 
ordering of lines and statements in an MS-FORTRAN compiland. 


In general, a compiland consists of one or more program units (see 
Chapter 5, ‘Programs, Subroutines, and Functions,” for more 
information on compilation units and subroutines). The various 
rules for ordering statements are illustrated in Figure 2.1 and 
described in the paragraphs following. 


$DO66, $STORAGE metacommands 


PROGRAM, FUNCTION, SUBROUTINE, or 
BLOCK DATA statements 


IMPLICIT statements 
PARAMETER 
Other specification statements Other 


statements FORMAT meta- 
statements commands 


Statement function 
statements DATA 


statements 
Executable statements 


END statement 


Figure 2.1. Order of Statements Within Program Units 
and Compilands 


18 


Terms and Concepts 


Within Figure 2.1, the following conventions apply: 


1. 


Classes of lines or statements above or below other 
classes must appear in the designated order. 


Classes of lines or statements may be interspersed with 
other classes that appear across from one another. 


Comment lines may appear throughout the source code 
except before a continuation line. 


The $LARGE and $NOTLARGE metacommands may 
not appear within the executable statement section. 


BLOCK DATA subprograms may not contain statement 
function statements, FORMAT statements, or executable 
statements. 


A subprogram begins with either a SUBROUTINE, FUNCTION 
or BLOCK DATA statement and ends with an END statement. A 
main program begins with a PROGRAM statement or any 
statement other than a SUBROUTINE, FUNCTION, or BLOCK 
DATA statement and ends with an END statement. A subpro- 
gram or the main program is referred to as a program unit. 


Within a program unit, statements must appear in an order con- 
sistent with the following rules: 


1. 


A PROGRAM statement, if present, ora SUBROUTINE, 
FUNCTION, or BLOCK DATA statement must be the 
first statement of the program unit. 


FORMAT statements may appear anywhere after the 
SUBROUTINE or FUNCTION statement, or PROGRAM 
statement, if present. 


Specification statements that define the type of a sym- 
bolic constant must appear before the PARAMETER 
statement that defines the value of that symbolic con- 
stant. The PARAMETER statement that defines a sym- 
bolic constant must appear before any other statement 
that uses that symbolic constant. Otherwise, a 
PARAMETER statement may appear anywhere in the 
specification statements. 


The IMPLICIT statement must precede all specification 
statements except the PARAMETER statement. All spec- 
ification statements must precede all DATA statements, 
statement function statements, and executable state- 
ments. 
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5. 


2.3 


All DATA statements must appear after the specification 
statements. DATA statements may be interspersed with 
statement function statements and executable statements. 


All statement function statements must precede all execu- 
table statements. 


The $DO66 and $STORAGE metacommands, if present, 
must appear before all other statements; other metacom- 
mands may appear anywhere in the program unit. 


Data Types 


There are six basic data types in MS-FORTRAN: 


1 
2 
3. 
4, 
5 
6 


integer (INTEGER*2 and INTEGER*4) 

real (REAL*4 or REAL) 

double precision (REAL*8 or DOUBLE PRECISION) 
logical (LOGICAL*2 and LOGICAL*4) 

complex (COMPLEX*8 and COMPLEX*16) 


character 


The properties of, the range of values for, and the form of con- 
stants for each type are described in the following pages; mem- 
ory requirements are shown in Table 2.1. 
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Table 2.1 


Memory Requirements 


Type Bytes Note 
LOGICAL 2or 4 1 
LOGICAL*2 2 

LOGICAL*4 4 

INTEGER 2 or 4 i 
INTEGER*2 2 

INTEGER*4 4 

CHARACTER 1 2 
CHARACTER#*n n 3 
REAL 4 4 
REAL*4 4 

REAL*8 8 5 
DOUBLE PRECISION 8 

COMPLEX 8 6 
COMPLEX*8 8 

COMPLEX*16 16 1 
Notes for Table 2.1: 


1. 


Note 


Either 2 or 4 bytes are used. The default is 4, but may be set 
explicitly to either 2 or 4 with the $STORAGE metacommand. 


CHARACTER and CHARACTER#1 are synonymous. 
Maximum n is 127. 

REAL and REAL#4 are synonymous. 

REAL*#8 and DOUBLE PRECISION are synonymous. 
COMPLEX and COMPLEX*8 are synonymous. 


The COMPLEX*16 type is an extension to the full language 
standard. 


In some implementations, all numeric and logical data types 


always 


start on an even byte boundary. 
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2.3.1 Integer Data Types 


The integer data type consists of a subset of the integers. An 
integer value is an exact representation of the corresponding 
integer. An integer variable occupies two or four bytes of memory, 
depending on the setting of the $STORAGE metacommand. A 
2-byte integer, INTEGER*2, can contain any value in the range 
-32767 to 32767. A 4-byte integer, INTEGER*4, can contain any 
value in the range -2,147,483,647 to 2,147,483,647. 


Integer constants consist of a sequence of one or more decimal 
digits or a radix specifier, followed by a string of digits in the 
range 0...(radix -1), where values between 10 and 35 are repre- 
sented by the letters “A” through “Z”, respectively. 


A radix specifier consists of the character “#” optionally preceded 
by a string of decimal characters that represent the integer value 
of the radix. If the string is omitted, the radix is assumed to be 16. 
If the radix specifier is omitted, the radix is assumed to be 10. 


Either format may be preceded by an optional arithmetic sign, 
plus (+) or minus (-). Integer constants must also be in range. A 
decimal point is not allowed in an integer constant. 


Note 


The range of values for both 16-bit and 32-bit integers does not 
include the most negative number that can be represented in 
2’s complement arithmetic in that number of bits. These 
numbers, 16#8000 and 16#80000000, are treated as “unde- 
fined” for error checking purposes. 


Although the maximum 32-bit integer value is defined as 
2**31-1, the compiler and runtime will read greater values 
which are nominally in the range up to 2**32. But these 
values will only be read without error if the radix is other than 
10. They will be interpreted as the negative numbers with the 
corresponding internal representation. For example, 16 
#FFFFFFFF will result in all the bits in the 32-bit integer 
result being set, and will have an arithmetic value of -1. 
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The following are examples of integer constants: 


123 +1230 0 
00000123 32767 -32767 
-#AB05 2#010111 -36#ABZ07 


An integer can be specified in MS-FORTRAN as INTEGER#2, 
INTEGER#*4, or INTEGER. The first two specify 2-byte and 4- 
byte integers, respectively. INTEGER specifies either 2-byte or 
4-byte integers, according to the setting of the $STORAGE meta- 
command (the default is four bytes). 


Important 


On many microprocessors, the code required to perform 16-bit 
arithmetic is considerably faster and smaller than the corre- 
sponding code to perform 32-bit arithmetic. Therefore, unless 
you set the MS-FORTRAN $STORAGE metacommand to a 
value of 2, programs will default to 32-bit arithmetic and may 
run more slowly than expected (see Section 6.2.8, “The 
$STORAGE Metacommand”). Setting the $STORAGE meta- 
command to 2 allows programs to run faster and use less code. 


2.3.2 The Single Precision 
IEEE Real Data Type 


The real data type (REAL or REAL*4) consists of a subset of the 
real numbers, the single precision real numbers. A single preci- 
sion real value is normally an approximation of the real number 
desired and occupies four bytes of memory. 


The range of single precision real values is approximately as 
follows: 


8.43E-37 to 3.37E+38 (positive range) 
-3.387E+388 to -8.43E-37 (negative range) 
0 (zero) 


The precision is greater than six decimal digits and less than 
seven. 


23 


Microsoft FORTRAN Reference Manual 


A basic real constant consists of: 


an optional sign 
an integer part 
a decimal point 


a fraction part 


oe ae ee ee 


an optional exponent part 


The integer and fraction parts consist of one or more decimal 
digits, and the decimal pointis a period (.). Either the integer part 
or the fraction part may be omitted, but not both. Some sample 
real constants are: 


-123.456 +123.456 123.456 
-123. +123 123. 
-.456 +456 456 


The exponent part consists of the letter “E” followed by an 
optionally signed integer constant of one or two digits. An expo- 
nent indicates that the value preceding it is to be multiplied by ten 
to the value of the exponent part’s integer. 


Some sample exponent parts are: 
E12 E-12 E+12 10) 


A real constant is either a basic real constant, a basic real con- 
stant followed by an exponent part, or an integer constant fol- 
lowed by an exponent part. For example: 


+1.000E-2 1.E-2 1E-2 
+0.01 100.0E-4 0001 +2 


All represent the same real number, one one-hundredth. 


2.3.3 The Double Precision 
IEEE Real Data Type 


The double precision real data type (REAL*8 or DOUBLE PRE- 
CISION) consists of a subset of the real numbers, the double 
precision real numbers. This subset is larger than the subset for 
the REAL (REAL+*4) data type. 
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A double precision real value is normally an approximation of the 
real number desired. A double precision real value can be a posi- 
tive, negative, or zero value and occupies eight bytes of memory. 
The range of double precision real values is approximately: 


4.19D-307 to 1.67D+308 (positive range) 
-1.67D+308 to -4.19D-307 (negative range) 
0 (zero) 


The precision is greater than 15 decimal digits. 
A double precision constant consists of: 


an optional sign 


an integer part 


1 
2 
3. a decimal point 
4, a fraction part 
5 


a required exponent part 


The exponent uses “D” rather than “E” to distinguish it from 
single precision. The integer and fraction parts consist of one or 
more decimal digits, and the decimal point is a period. Either the 
integer part or the fraction part, but not both, may be omitted. 


A double precision constant is either a basic real constant fol- 
lowed by an exponent part, or an integer constant followed by an 
exponent part. For example: 


+1.123456789 D-2 1.D-2 1D-2 
+0.000000001 DO 100.0000005D-4 = .00012345D+2 


The exponent part consists of the letter “D” followed by an integer 
constant. The integer constant may have a sign as an option. An 
exponent indicates that the value preceding it is to be multiplied 
by ten to the value of the exponent part’s integer. If the exponent 
is zero, it must be specified as a zero. 

Some sample exponent parts are: 


D12 D-12 D+12 DO 
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Single and Double DECIMAL Floating-Point Format 


Decimal floating-point numbers consist of a byte containing a 
sign bit and a 7-bit exponent in excess 64 notation followed by a 
mantissa consisting of 6 (single) and 14 (double) binary coded 
decimal digits packed two to a byte (if the exponent byte is zero, 
the number is zero.) The notation for decimal floating-point con- 
stants follows the same format as standard FORTRAN real and 
double precision constants. 


The allowable ranges of single precision numbers are: 


single +1.0E-64 to +9.99E+62 (positive range) 
-9.99E+62 to -1.0E-64 (negativerange) 
0 (zero) 


Precision is exactly 6 digits. 


The allowable ranges for double precision numbers are: 


double +1.0D-64 to +9.999D+62 (positive range) 
-9,99D+62 to -1.0D-64 (negativerange) 
0 (zero) 


Precision is exactly 14 digits. 


The $DECMATH metacommand causes constants in the source 
file to be represented in base-10 format. 


2.3.4 Complex Data Types 


The COMPLEX*8 data type is an ordered pair of single precision 
real numbers with the second component representing an imagi- 
nary number. A COMPLEX*8 number occupies 8 bytes of 
memory. 


A complex constant consists of an optional sign, followed by a left 


parenthesis, followed by two integer or real constants separated 
by a comma, followed by a right parenthesis. 
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A COMPLEX*16 data item consists of an ordered pair of double 
precision real numbers. COMPLEX*16 data items occupy 16 
bytes of memory. 


Each component (real and imaginary) of a COMPLEX*8 is a 
REAL*4. Each component of a COMPLEX*16 is a REAL*8. 


2.3.5 Logical Data Types 


The logical data type consists of the two logical values . TRUE. 
and .FALSE.. A logical variable occupies two or four bytes of 
memory, depending on the setting of the SSTORAGE metacom- 
mand. The default is four bytes. The significance of a logical 
variable is unaffected by the $STORAGE metacommand, which 
is present primarily to allow compatibility with the ANSI 
requirement that logical, single precision real, and integer varia- 
bles are all the same size. 


LOGICAL#2 values occupy two bytes. The least significant (first) 
byte is either 0 (.FALSE.) or 1 (.TRUE.); the most significant byte 
is undefined. LOGICAL*4 variables occupy two words, the least 
significant (first) of which contains LOGICAL#*2 value. The most 
significant word is undefined. 


2.3.6 The Character Data Type 


The character data type consists of a sequence of ASCII charac- 
ters. The length of a character value is equal to the number of 
characters in the sequence. The length of a particular constant or 
variable is fixed, and must be between 1 and 127 characters. A 
character variable occupies one byte of memory for each charac- 
ter in the sequence. 


Character variables are assigned to contiguous bytes without 
regard for word boundaries. However, the compiler assumes that 
noncharacter variables that follow character variables always 
start on word boundaries. 


A character constant consists of a sequence of one or more char- 
acters enclosed in a pair of single right quotation marks. Blank 
characters are permitted in character constants and are signifi- 
cant. The case of alphabetic characters is significant. An apos- 
trophe (’) within a character constant is represented by two con- 
secutive single right quotation marks with no blanks in between. 
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The length of a character constant is equal to the number of 
characters between the apostrophes. A pair of apostrophes counts 
as a single character. Some sample character constants are: 

*A’ 

Help!’ 

’A very long CHARACTER constant’ 

°O” Brien’ 


3999 


9999 


The last example (’””) is a character constant that contains one 
apostrophe (single right quotation mark). 


FORTRAN permits source lines of up to 72 columns. Shorter lines 
are padded with blanks to 72 columns. When a character constant 
extends across a line boundary, its value is as if the portion of the 
continuation line beginning with column 7 is appended to column 
72 of the initial line. 


Thus, the following FORTRAN source, 


200 CH = 'ABC 
X DEF’ 


is equivalent to: 
200 CH = ’ABC (58 blank spaces) ... DEF’ 


with 58 blank spaces between the C and D being equivalent to the 
space from Cin column 15 to column 72 plus one blank in column 
7 of the continuation line. Very long character constants can be 
represented in this manner. 


2.4 Names 


An MS-FORTRAN name, or identifier, consists of a sequence of 
alphanumeric characters (the maximum is 66 characters per line 
multiplied by twenty lines). The initial character must be alpha- 
betic; subsequent characters must be alphanumeric. Blanks are 
skipped. Only the first six characters are significant; the rest are 
ignored. 
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A name denotes a user-defined or system-defined variable, array, 
or program unit. Any valid sequence of characters can be used for 
any FORTRAN name. 


There are no reserved names as in other languages. Sequences of 
alphabetic characters used as keywords by the MS-FORTRAN 
Compiler are not confused with user-defined names. The compiler 
recognizes keywords by their context and in no way restricts the 
use of user-defined names. 


Thus, a program can have, for example, an array named IF, 
READ, or GOTO, with no error (as long as it conforms to the rules 
that all arrays must obey). However, use of keywords for user- 
defined names often interferes with the readability of the pro- 
gram, so the practice should be avoided. 


2.4.1 Scope of FORTRAN Names 


The scope of a name is the range of statements in which that 
name is known, or can be referenced, within a FORTRAN pro- 
gram. In general, the scope of a name is either global or local, 
although there are several exceptions. Anamecan only be used in 
accordance with a single definition within its scope. The same 
name, however, can have different definitions in distinct scopes. 


A name with global scope can be used in more than one program 
unit (a subroutine, function, or the main program) and still refer to 
thesame entity. In fact, names with global scope can only be used 
in a single, consistent manner within the same program. All 
subroutine, function subprogram, and common block names, as 
well as the program name, have global scope. Therefore, there 
cannot be a function subprogram that has the same name as a 
subroutine subprogram or a common data area. Similarly, no two 
function subprograms in the same program can have the same 
name. 


A name with local scope is only visible (known) within a single 
program unit. A name with a local scope can be used in another 
program unit with a different meaning or with a similar meaning, 
but is in no way required to have a similar meaning in a different 
scope. The names of variables, arrays, arguments, and statement 
functions all have local scope. 
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One exception to the scoping rules is the name given to a common 
data block. It is possible to refer to a globally scoped common 
block name in the same program unit in which an identical 
locally scoped name appears. This is permitted because common 
block names are always enclosed in slashes, such as /FROG/, 
and are therefore always distinguishable from ordinary names. 


Another exception to the scoping rules is made for statement 
function arguments. The scope of statement function arguments 
is limited to the single statement forming that statement func- 
tion. Any other use of those names within that statement function 
is not permitted, while any other use outside that statement 
function is acceptable. 


2.4.2 Undeclared FORTRAN Names 


As it passes over the executable statements in a program, the 
compiler classifies names which it encounters for the first time 
(i.e. those not explicitly defined) according to the context. 


If the name is used as a variable, its type is inferred from the first 
letter of the name; I, J, K, L, M, or N by default are used to initial 
integers, while all others are used to initial real numbers. You can 
use the IMPLICIT statement to change the association of type 
and initial letter. (For more information, see Section 3.2.27, “The 
IMPLICIT Statement”). The same rules are used when the name 
is used in a function call to determine the type of the function 
return values. 


When a name is used as the target of a CALL statement, it is 
assumed to be that of a subroutine. Similarly, a name used in a 
function reference is assumed to be that of a function. If a subrou- 
tine or function is part of the same compilation unit (i.e., is in the 
same source file), and its definition occurs before the reference to it 
in a CALL statement or function reference, the compiler will 
check that the number and type of the actual arguments in the 
CALL statement or function reference are consistent with those 
specified in the corresponding SUBROUTINE or FUNCTION 
statement. 
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2.5 Expressions 


An expression is a formula for computing a value. It consists of a 
sequence of operands and operators. The operands may contain 
function invocations, variables, constants, or even other expres- 
sions. The operators specify the actions to be performed on the 
operands. 


FORTRAN has four classes of expressions: 


1. arithmetic 
2. character 
3. relational 


4. logical 


2.5.1 Arithmetic Expressions 


An arithmetic expression produces a value that is of type 
INTEGER, REAL, DOUBLE PRECISION or COMPLEX. The 
simplest forms of arithmetic expressions are: 


1. constants 

2. variable references 

3. array element references 

4. function references 
The value of a variable reference or array element reference must 
be defined before it can appear in an arithmetic expression. 
Moreover, the value of an integer variable must be defined with 


an arithmetic value, rather than a statement label value pre- 
viously set in an ASSIGN statement. 


Other arithmetic expressions are built up from the simple forms in 


the preceding list using parentheses and the arithmetic operators 
shown in Table 2.2. 
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Table 2.2 


Arithmetic Operators 


Operator Operation Precedence 

0 Exponentiation Highest 

/ Division Intermediate 

. Multiplication Intermediate 
Subtraction or Lowest 
Negation 

+ Addition or Identity Lowest 


All of the operators may be used as binary operators, which 
appear between their arithmetic expression operands. The plus (+) 
and minus (-) may also be unary, and precede their operand. 


Operations of equal precedence, except exponentiation, are left- 
associative. Exponentiation is right-associative. Thus, each of the 
following expressions on the left is the same as the corresponding 
expression on the right: 

A/B*C (A/B)*C 

A**Bt*C A**(B**C) 
Arithmetic expressions can be formed in the usual mathematical 
sense, asin most programming languages. However, FORTRAN 
prohibits two operators from appearing consecutively. For exam- 
ple, this is prohibited, 

A**-B 
while this is allowed: 


A**(-B) 


Unary minus is also of lowest precedence. Thus, the expression 
-A**B is interpreted as -(A**B). 


You may use parentheses in an expression to control associativity 
and the order in which operators are evaluated. 
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2.5.2 Integer Division 


The division of two integers results in a value that is the mathe- 
matical quotient of the two values, truncated downward (i.e., toward 
zero). Thus, 7/3 evaluates to 2, and (-7)/3 evaluates to -2. Both 9/10 
and 9/(-10) evaluate to 0 (zero). 


2.5.3 Type Conversions of Arithmetic Operands 


When all operands of an arithmetic expression are of the same 
data type, the value returned by the expression is also of that type. 
When the operands are of different data types, the data type of the 
value returned by the expression is the type of the highest-ranked 
operand. 


The rank of an operand depends on its data type, as shown in the 
following list: 


INTEGER#2 (lowest) 
INTEGER#4 

REAL*4 

REAL*8 

COMPLEX#*8 
COMPLEX*16 (highest) 


St Or eo Ge es 


For example, an operation on an INTEGER*2 and a REAL*4 
element produces a value of data type REAL*4. 


Special Case 


Operations on operands of types REAL*8 and COMPLEX*8 
yield COMPLEX*16 results, not COMPLEX*8 results as sug- 
gested in the list. 


The data type of an expression is the data type of the result of the 
last operation performed in evaluating the expression. 
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The data types of operations are classified as either INTEGER*2, 
INTEGER*4, REAL*4, REAL*8, COMPLEX*8, or COMPLEX*16. 


Integer operations are performed on integer operands only. A 
fraction resulting from division is truncated in integer arithmetic, 
not rounded. Thus, the following evaluates to zero, not one: 


1/4+1/4+1/4+1/4 


Memory allocation for the type INTEGER, without the *2 or *4 
length specification, is dependent on the use of the $STORAGE 
metacommand. (See the note at the beginning of Section 2.3, 
“Data Types,” and Section 6.2.12, “The $STORAGE Metacom- 
mand,” for details.) 


Real operations are performed on real operands or combinations 
of real and integer operands only. Integer operands are first con- 
verted to real data type by giving each a fractional part equal to 
zero. Real arithmetic is then used to evaluate the expression. In 
the following statement, integer division is performed on I and J, 
and a real multiplication on the result and X: 


Y = (I/J)*X 


2.5.4 Character Expressions 


A character expression produces a value that is of type CHAR- 
ACTER. The forms of character expressions are: 


character constants 
character variable references 
character array element references 


any character expression enclosed in parentheses 


Pk ae le eS 


character function references 


There are no operators that result in character expressions. 
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2.5.5 Relational Expressions 


Relational expressions compare the values of two arithmetic or 
two character expressions. An arithmetic value may not be com- 
pared with a character value, unless the $NOTSTRICT meta- 
command has been specified. In this case, the arithmetic expres- 
sion is considered to be a character expression. The result of a 
relational expression is of type LOGICAL. Relational expressions 
can use any of the operators shown in Table 2.3 to compare 
values. 


Table 2.3 


Relational Operators 


Operator Operation 

.LT. Less than 

.LE. Less than or equal to 
EQ. Equal to 

NE. Not equal to 

.GT. Greater than 

GE. Greater than or equal to 


All of the relational operators are binary operators and appear 
between their operands. There is no relative precedence or associ- 
ativity among the relational operands since an expression of the 
following form violates the type rules for operands: 


A .LT. B .NE. C 


Relational expressions may only appear within logical expres- 
sions. 


Relational expressions with arithmetic operands may have one 
operand of type INTEGER and one of type REAL. In this case, 
the integer operand is converted to type REAL before the rela- 
tional expression is evaluated. 
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Relational expressions with character operands compare the 
position of their operands in the ASCII collating sequence. An 
operand is less than another if it appears earlier in the collating 
sequence. If operands of unequal length are compared, the shorter 
operand is considered as if it were extended to the length of the 
longer operand by the addition of spaces on the right. 


2.5.6 Logical Expressions 


A logical expression produces a value that is of type LOGICAL. 
The simplest forms of logical expressions are: 


logical constants 


logical variable references 


1 
2 
3. logical array element references 
4. logical function references 

5 


relational expressions 


Other logical expressions are built up from the simple forms in the 


preceding list by using parentheses and the logical operators of 
Table 2.4. 


Table 2.4 
Logical Operators 


Operator Operation Precedence 
NOT. Negation Highest 
AND. Conjunction Intermediate 
OR. Inclusive disjunction Intermediate 
QV. Equivalence Lowest 
NEQV. Nonequivalence Lowest 


The .AND.,.OR.,.EQV. and .NEQV. operators are binary opera- 
tors and appear between their logical expression operands. The 
.NOT. operator is unary and precedes its operand. 
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Operations of equal precedence are left-associative; thus, for 
example, 

A .AND. B .AND. C 
is equivalent to: 

(A .AND. B) .AND. C 
As an example of the precedence rules, 

NOT. A .OR. B .AND. C 
is interpreted the same as: 

(NOT. A) .OR. (B .AND. C) 
Two .NOT. operators cannot be adjacent to each other, although 

A .AND. .NOT. B 


is an example of an allowable expression with two adjacent 
operators. 


As another example of the precedence rules and the use of .EQV. 
and .NEQV., 


NOT. A .EQV. B .OR. C .NEQV. D .AND. E 
can be interpreted as, 
(.NOT. A) .EQV. (B .OR. C)) .NEQV. (D .AND. E) 


Logical operators have the same meaning as in standard mathema- 
tical semantics, with .OR. being nonexclusive. For example, 


TRUE. .OR. .TRUE. 
evaluates to the value: 


TRUE. 
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2.5.7 Precedence of Operators 


When arithmetic, relational, and logical operators appear in the 
same expression, they abide by the following precedence guide- 
lines: 


1. Logical (lowest) 
2. Relational (intermediate) 
3. Arithmetic (highest) 


2.5.8 Rules for Evaluating Expressions 


Any variable, array element, or function that is referred to in an 
expression must be defined at the time the reference is made. 
Integer variables must be defined with an arithmetic value, 
rather than a statement label value as set by an ASSIGN 
statement. 


Certain arithmetic operations, such as dividing by zero, are not 
mathematically meaningful and are prohibited. Other prohibited 
operations include raising a zero-value operand to a zero or nega- 
tive power and raising a negative-value operand to a power of 
type REAL or DOUBLE PRECISION. 


2.5.9 Array Element References 


An array element reference identifies one element of an array. Its 
syntax is as follows: 


array (sub [, Sub]...) 

array is the name of an array. 

sub is a subscript expression, that is, an integer expression used in 
selecting a specific element of an array. The number of subscript 
expressions must match the number of dimensions in the array declar- 


ator. The value of asubscript expression must be between one and the 
upper limit for the dimension it represents, inclusive. 
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C EXAMPLE OF ARRAY ELEMENT REFERENCES 
DIMENSION A(3,2),B(3,4),C(4,5),D(5,6),V(10) 
EQUIVALENCE (X,V(1)), (Y,V(2)) 

D(I,J) = D(I,J)/PIVOT 
C(l,J) = C(IJ) + A(I,K) * B(K,J) 
READ(+,+) (V(N),N=1,10) 
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The IF THEN ELSE Statement 
(Block IF) 100 


The IMPLICIT Statement 108 
The INQUIRE Statement 105 
The INTRINSIC Statement 108 
The OPEN Statement 109 

The PARAMETER Statement 111 
The PAUSE Statement 112 

The PROGRAM Statement 113 
The READ Statement 114 

The RETURN Statement 116 

The REWIND Statement 118 


90 
93 


3.2.37 
3.2.38 
3.2.39 
3.2.40 
3.2.41 
3.2.42 


The SAVE Statement 119 

The Statement Function Statement 120 
The STOP Statement 122 

The SUBROUTINE Statement 128 
The Type Statement 125 

The WRITE Statement 127 
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3.1 Categories of Statements 


Statements perform a number of functions, such as computing, 
storing the results of computations, altering the flow of control, 
reading and writing files, and providing information for the 
compiler. 


FORTRAN statements fall into two broad classes: executable and 
nonexecutable. An executable statement causes an action to be 
performed. Nonexecutable statements do not in themselves cause 
operations to be performed. Instead, they specify, describe, or 
classify elements of the program, such as entry points, data, or 
program units. 


Nonexecutable statements include the following: 
1. PROGRAM, SUBROUTINE, FUNCTION , and BLOCK 
DATA statements 
specification statements 
the DATA statement 
the FORMAT statement 
The executable statements form a much larger group and may be 
divided into the following categories: 
1. assignment statements 
2. control statements 
3. I/O statements 
Sections 3.1.1 through 3.1.7 describe each of these types of state- 


ments, in general terms, in the order in which they are mentioned 
in the preceding lists. 


Section 3.2, “Statement Directory,” is an alphabetical listing of all 
statements. For each statement, the entry gives syntax and pur- 
pose, with remarks and examples as appropriate. 


Chapter 4, “The I/O System,” provides additional information on 
input and output in MS-FORTRAN. 
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3.1.1 PROGRAM, SUBROUTINE, 
FUNCTION, and 
BLOCK DATA Statements 


These statements identify the start of a program unit; all are 
nonexecutable. For more specific information, see the following 
sections: Section 3.2.4, “The BLOCK DATA Statement”; Section 
3.2.20, “The FUNCTION Statement”; Section 3.2.33, “The PRO- 
GRAM Statement”; Section 3.2.38, “The Statement Function 
Statement’; and Section 3.2.40, “The SUBROUTINE Statement.” 


See also Chapter 5, “Programs, Subroutines, and Functions,” for 
general information on program units. 


3.1.2 Specification Statements 


Specification statements in MS-FORTRAN are nonexecutable. 
They define the attributes of user-defined variable, array, and 
function names. Table 3.1 lists the eight specification statements, 
which are described in detail in Section 3.2, “Statement Directory.” 


Table 3.1 

Specification Statements 

Statement Purpose 

COMMON Provides for sharing memory between two or 


more program units. 


DIMENSION Specifies that a user name is an array and defines 
the number of its elements. 


EQUIVALENCES _— Specifies that two or more variables or arrays 
share the same memory. 


EXTERNAL Identifies a user-defined name as an external 
subroutine or function. 

IMPLICIT Defines the default type for user-defined names. 

INTRINSIC Declares that a name is an intrinsic function. 

PARAMETER Equates a constant expression with an identifier 
(eg., name). 

SAVE Causes variables to retain their values across 
invocations of the procedure in which they are 
defined. 


Type Specifies the type of user-defined names. 
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Specification statements must precede all statement function 
statements and executable statements in a program unit. See 
Section 2.2.4, “Statement Definition and Order,” for the rules on 
the order of specification statements. 


3.1.3 The DATA Statement 


The DATA statement assigns initial values to variables. DATA 
statements are optional, nonexecutable statements and may be 
interspersed with statement function statements and executable 
statements but must appear after all specification statements. 
(See Section 3.2.9, “The DATA Statement,” for more information.) 


3.1.4 The FORMAT Statement 


Format specifications provide explicit editing information for the 
data processed by a program. Format specifications may be given 
in a FORMAT statement or as character constants. (See Section 
3.2.19, “The FORMAT Statement,” for a description of the FOR- 
MAT statement and Section 4.4, “Formatted I/O,” for additional 
information on formatted data.) 


3.1.5 Assignment Statements 


Assignment statements are executable statements that assign a 
value to a variable or an array element. There are two basic kinds 
of assignment statements: computational and label. (See Section 
3.2.1, “The ASSIGN Statement,” and Section 3.2.2, “The Assign- 
ment Statement,” respectively, for further information.) 


3.1.6 Control Statements 


Control statements affect the order of execution of statements in 
FORTRAN. The control statements in MS-FORTRAN are shown 
in Table 3.2, along with a brief description of the function of each. 
See the appropriate entries in Section 3.2, “Statement Directory,” 
for further information on each. 
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Table 3.2 


Control Statements 


Statement 
CALL 


CONTINUE 


DO 


ELSE 
ELSEIF 
END 
ENDIF 


GOTO 


IF 


PAUSE 


RETURN 


STOP 


Purpose 


Calls and executes a subroutine from another 
program unit. 


Used primarily as a convenient way to place 
statement labels, particularly as the terminal 
statement in a DO loop. 


Causes repetitive evaluation of the statements 
following the DO, through and including the end- 
ing statement. 


Introduces an ELSE block. 
Introduces an ELSEIF block. 
Ends execution of a program unit. 


Marks the end of a series of statements following 
a block IF statement. 


Transfers control elsewhere in the program, ac- 
cording to the kind of GOTO statement used 
(assigned, computed, or unconditional). 


Causes conditional execution of some other state- 
ment(s), depending on the evaluation of an ex- 
pression and the kind of IF statement used 
(arithmetic, logical, or block). 


Suspends program execution until the RETURN 
key is pressed. 


Returns control to the program unit that called a 
subroutine or function. 


Terminates a program. 


3.1.7 I/O Statements 


I/O statements transfer data, perform auxiliary I/O operations, 
and position files. Table 3.3 lists the MS-FORTRAN I/O state- 
ments (each of which is described in detail in Section 3.2, “State- 


ment Directory”). 
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Table 3.3 
I/O Statements 


Statement 


BACKSPACE 
CLOSE 
ENDFILE 
INQUIRE 
OPEN 


READ 
REWIND 


WRITE 


Statements 


Purpose 


Positions the file connected to the specified unit to 
the beginning of the previous record. 


Disconnects the unit specified and prevents sub- 
sequent I/O from being directed to that unit. 


Writes an end of file record on the file connected to 
the specified unit. 


Returns values indicating the properties of a 
named or unit specifier. 


Associates a unit number with an external device 
or with a file on an external device. 


Transfers data from a file to the items in an iolist. 


Repositions a specified unit to the first record in 
the associated file. 


Transfers data from the items in an iolist toa file. 
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Note 
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Error Handling. If an error is encountered during the process- 
ing of aREAD, WRITE, or INQUIRE statement, the action 
taken depends on the presence and definition of the ERR= 
and IOSTAT= specifiers. (See the statement descriptions in 
Section 3.2, ‘Statement Directory,” for information about 
these specifiers.) 


a) Ifneither is present, the program is terminated with an 
appropriate runtime error message. 


b) If only ERR=slabel2 is present, control is transferred to 
the designated label. 


c) If only IOSTAT=iocheck is present, tocheck is set to the 
appropriate status value and control returns as if the 
statement had terminated normally. 


d) If both are present, iocheck is set appropriately and 
control transfers to slabel2. 


Any time an error is encountered in the READ statement, all 
the items in the iolist become undefined. 


In addition to these I/O statements, there is an I/O intrinsic 
function EOF (unit-spec). An EOF function returns a logical 
value that indicates whether any data remains beyond the 
current position in the file associated with the given unit 
specifier. See Section 5.3.2, “Intrinsic Functions,” for infor- 
mation about this function. 


Statements 
3.2. Statement Directory 


The rest of this chapter is an alphabetical listing of all MS- 
FORTRAN statements, giving syntax and function, with notes 
and examples as necessary. 


3.2.1 The ASSIGN Statement 
(Label Assignment) 


Syntax 
ASSIGN label TO variable 


Purpose 


Assigns the value of a format or statement label to an integer 
variable. 


Remarks 
label is a format label or statement label. 
variable is an integer variable. 


Execution of an ASSIGN statement sets the integer variable to 
the value of the label. The label can be either a format or a 


statement label and must appear in the same program unit as the 
ASSIGN statement. 


When used in an assigned GOTO statement, a variable must 
currently have the value of a statement label. When used as a 
format specifier in an input/output statement, a variable must 
have the value of a format statement label. The only way to 
assign the value of a label to a variable is with the ASSIGN 
statement. 
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The value of a label is not necessarily the same as the label 
number. For example, the value of IVBL in the following is not 
necessarily 400: 


ASSIGN 400 TO IVBL 
Hence, the variable is undefined as an integer; it cannot be used in 


an arithmetic expression until it has been redefined as such (by 
computational assignment or a READ statement). 
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3.2.2. The Assignment Statement 


(Computational) 


Syntax 


variable = expression 


Purpose 


Evaluates the expression and assigns the resulting value to the 
variable or array element specified. 


Remarks 


variable is a variable or array element reference. 


expression is any expression. 


The type of the variable or array element and the type of expres- 
sion must be compatible. 


iy 


If the type of the right-hand side is numeric, the type of the 
left-hand side must be numeric, and the statement is 
called an arithmetic assignment statement. 


If the type of the right-hand side is logical, the type of the 
left-hand side must be logical, and the statement is called 
a logical assignment statement. 


If the type of the right-hand side is character, the type of 
the left-hand side must also be character, and the state- 
ment is called a character assignment statement. How- 
ever, if you have specified the $NOTSTRICT metacom- 
mand, the type of left-hand side may be numeric, logical, 
or character; the statement is still called a character 
assignment statement. 
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If the types of the elements of an arithmetic assignment state- 
ment are not identical, the value of the expression is automati- 


cally converted to the type of the variable. 


The conversion outcomes are given in Tables 3.4, 3.5 and 3.6. The 
value of the expression to be converted in the V=E assignment 
statement is shown after E in row one. The determining factor in 
the conversion, the variable type (V), is listed in column one. The 
outcome of the conversion (assignment) is shown in columns two 


and three. 


Table 3.4 


Conversion of Integer Values in V = E 


V\E 


INTEGER*2 


INTEGER*4 


REAL*4 


REAL*8 


COMPLEX*8 


COMPLEX*16 


54 


INTEGER#2 


INTEGER*4 


Assign E to V. 


Assign E to least sig- 
nificant portion of V; 
most significant por- 
tion is sign extended. 


Append fraction (.0) to 
E and assign to V. 


Append fraction (.0) to 
E and assign to V. 


Append fraction (.0) to 
E and assign to the real 
part of V.; represent 
imaginary part with 0. 


Append fraction (.0) to 
E and assign to the real 
part of V.; represent 
imaginary part with 0. 


Assign least significant 
portion of E to V; most 
significant portion is 
lost. 


Assign E to V. 


Append fraction (.0) to 
E and assign to V. 


Append fraction (.0) to 
E and assign to V. 


Append fraction (.0) to 
E and assign to the real 
part of V.; represent 
imaginary part with 0. 


Append fraction (.0) to 
E and assign to the real 
part of V.; represent 
imaginary part with 0. 


Table 3.5 


Conversion of Real Values in V = E 


V\E 


INTEGER*2 


INTEGER*4 


REAL*4 


REAL*#8 


COMPLEX*8 


COMPLEX*16 


REAL*4 


Truncate E to 
INTEGER#2 and 
assign to V. 


Truncate E to 
INTEGER#4 and 
assign to V. 


Assign E to V. 


Convert E to equival- 
ent REAL*8 form and 
assign to V. 


Assign E to real part of 
V; represent imaginary 
part with 0. 


Convert E to equival- 
ent of REAL*8 form 
and assign real of V; 
represent imaginary 
part with 0. 


Statements 


REAL*8 


Truncate E to 
INTEGER*2 and 
assign to V. 


Truncate E to 
INTEGER*#4 and 
assign to V. 


Round the least signif- 
icant portion of E; as- 
sign the most signifi- 
cant portion to V. 


Assign E. to V. 


Round the least signif- 
icant portion of E; as- 
sign the most signifi- 
cant portion to V; rep- 
resent imaginary part 
with 0. 


Assign E to real of V; 
represent imaginary 
part with 0. 
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Table 3.6 


Conversion of Complex Values in V = E 


V\E 


COMPLEX*8 


COMPLEX*16 


INTEGER*2 


INTEGER*4 


REAL*4 


REAL*8 


COMPLEX*8 


COMPLEX*16 


Truncate real of E to 
INTEGER#2 form and 
assign to V; ignore 
imaginary part. 
Truncate real of E to 
INTEGER*#4 form and 
assign to V. 


Assign real part of E to 
V. 


Convert real part of E 
to equivalent REAL#8 
form and assign to V. 


Assign E to V. 


Convert real and imagi- 
nary parts to equival- 
ent REAL*8 form and 


Truncate real of E to 
INTEGER*2 form and 
assign to V; ignore 
imaginary part. 
Truncate real of E to 
INTEGER+#4 form and 
assign to V. 

Round the least signifi- 
cant portion of real part 
of FE; assign the most sig- 
nificant portion to V. 


Assign real part of E to 
V. 


Round real and imagi- 
nary parts of E; assign 
to corresponding parts 
of V. 


Assign E to V. 


assign to V. 


For character assignments, if the length of the expression does 
not match the size of the variable, the expression is adjusted, in 
the following manner, so that it does match: 


1. Ifthe expression is shorter than the variable, the expres- 
sion is padded with enough blanks on the right before the 
assignment takes place to make the sizes equal. 


2. Ifthe expression is longer than the variable, characters 
on the right are truncated to make the sizes the same. 


Logical expressions of any size can be assigned to logical varia- 
bles of any size without affecting the value of the expression. 
However, integer and real expressions may not be assigned to 
logical variables, nor may logical expressions be assigned to 
integer or real variables. 
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3.2.3 The BACKSPACE Statement 


Syntax 
BACKSPACE unit-spec 


Purpose 


Positions the file connected to the specified unit at the beginning 
of the preceding record. 


Remarks 


unit-spec is a required unit specifier; it must not be an internal unit 
specifier. See Section 4.3.1, “Elements of I/O Statements,” for 
more information about unit specifiers and other elements of I/O 
statements. 


1. If there is no preceding record, the file position is not 
changed. 


2. If the preceding record is the endfile record, the file is 
positioned before the endfile record. 


3. Ifthe file position is in the middle of the record, BACK- 
SPACE repositions to the start of that record. 


4. Ifthe fileisa binary file, the BACKSPACE repositions to 
the preceding byte. 


Examples 


BACKSPACE 5 
BACKSPACE LUNIT 
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Syntax 
BLOCK DATA [name] 


Purpose 


The BLOCK DATA statement identifies a block data subprogram 
where the values for the variables and array elements in named 
common blocks are initialized. 


Remarks 


The BLOCK DATA statement must be the first statement in a 
block data subprogram. 


The optional argument, name, is a global symbolic name for the 
subprogram identified by the BLOCK DATA statement. This 
name must be unique among the names for local variables or 
array elements that are defined in the subprogram which name 
labels. name must also be unique among the names given the 
main program, external procedures, common blocks, and other 
block data subprograms. 
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Statements 


Only one unnamed block data subprogram may appear in the 
executable program. 


A block data subprogram may contain as many named com- 
mon blocks and data initializations as desired. 


The following restrictions apply to the use of block data 
subprograms: 


I, 


Besides BLOCK DATA, only the COMMON, DIMEN- 
SION, PARAMETER, IMPLICIT, EQUIVALENCE, 
SAVE, DATA, END, and type statements may be used in 
the block data subprogram. 


Named common blocks specified in block data subpro- 
grams must have unique names. 


Only an entity defined in a named common block may be 
initially defined in a block data subprogram. 


If an entity in a named common block is initially defined, 
all entities having storage units in the common block 
storage sequence must be specified even if they are not all 
initially defined. 
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3.2.5 The CALL Statement 


Syntax 
CALL sname [([arg [, arg]...])] 


Purpose 


Calls and executes a subroutine from another 
program unit. 


Remarks 
sname is the name of the subroutine to be called. 


arg is an actual argument, which can be any of 
the following: 

an alternate return specifier (*7) 

an expression 

a constant (or constant expression) 

a variable 

an array element 

an array 

a subroutine name 


an external function name 


SO OOr ele es A Se Oe a 


an intrinsic function permitted to be 
passed as an argument 


The actual arguments in the CALL statement must agree with 
the corresponding formal arguments in the SUBROUTINE 
statement, in order, in number, and in type or kind. 


The compiler will check for correspondence if the formal argu- 
ments are known. To be known, the SUBROUTINE statement 
that defines the formal arguments must precede the CALL state 
ment in the current compilation. 
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In addition, if the arguments are integer or logical values, agree- 
ment in size is required, according to the following rules: 


1. 


If the formal argument is unknown, its size is determined 
by the $STORAGE metacommand (except as noted in 
rule 5 of this list). If $STORAGE is not specified, the 
default is $STORAGE:4. 


If the actual argument is a constant (or constant expres- 
sion), and the size of the actual argument is smaller than 
the size of the formal argument, a temporary variable the 
size of the constant will be created for the actual argu- 
ment. If the actual argument is larger, an error is 
generated: 


95 argument type conflict 


If the actual argument is an expression and the size of the 
actual argument is smaller than the size of the formal 
argument, then a temporary variable the size of the for- 
mal argument is created for the actual argument. If the 
actual argument is larger, the same error is generated as 
in rule 2. 


If the actual argument is an array or a function, or if the 
actual argument is an array element and the formal 
argument an array, the compiler will not check for agree- 
ment in size. 


If the actual argument is a variable or an array element 
and the formal argument is unknown, the size of the 
formal argument is assumed to be the same size as the size 
of the actual argument. 


Thus, you can call separately compiled subroutines whose 
formal arguments differ from the size determined by the 
$STORAGE metacommand in effect when the CALL is 
compiled. However, agreement in size is still required, and 
it is your responsibility to ensure this agreement. 


If the formal argument is known, then an actual argu- 
ment that is a variable or an array element is treated as an 
expression; that is, a temporary variable for the actual 
argument is created if the actual argument is smaller 
than the formal argument. Otherwise, the same error 
occurs as in rule 2. 


61 


Microsoft FORTRAN Reference Manual 


Ifthe SUBROUTINE statement has no formal arguments, then a 
CALL statement referencing that subroutine must not have any 
actual arguments. However, a pair of parentheses may follow the 
subroutine name. 


Execution of a CALL statement proceeds as follows: 


All arguments that are expressions are evaluated. 


All actual arguments are associated with their corre- 
sponding formal arguments, and the body of the specified 
subroutine is executed. 


Normally, control is returned to the statement following 
the CALL statement upon exiting the subroutine, by exe- 
cuting either a RETURN statement or an END statement 
in that subroutine. If an alternate return in the form of 
RETURN e has been used, however, control will return to 
the statement specified by the eth alternate return speci- 
fier in the CALL statement. 


For an illustration of the alternate return feature, see the follow- 
ing example: 


01 


10 
20 


30 
40 


CALL BAR(I,*10,J,*20,*30) 
WRITE (*,*) ’ normal return’ 
GO TO 40 

WRITE (*,*)’ return to 10’ 
GO TO 40 

WRITE (*,*)’ return to 20’ 
GO TO 40 

WRITE (*,*) ’ return to 30’ 
WRITE 


SUBROUTINE BAR (I,*,J,*,*) 
IF (1.EQ.10) RETURN 1 

IF (I.EQ.20) RETURN 2 

IF (1.EQ.30) RETURN 3 
RETURN 


(See the SUBROUTINE Statement for more details on alternate 
returns.) 
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A subroutine can be called from any program unit. Microsoft 
FORTRAN does not permit recursive subroutine calls. That is, a 
subroutine cannot call itself directly, nor can it call another sub- 
routine that results in that subroutine being called again before it 
returns control to its caller. 


Note 


MS-FORTRAN Compiler does not detect recursive calls, even 
if they are direct. 


Example 


C EXAMPLE OF CALL STATEMENT 
IF (IERR .NE. 0) CALL ERROR(IERR) 


END 
C 
SUBROUTINE ERROR(IERRNO) 
WRITE (*, 200) IERRNO 
200 FORMAT (1X, ERROR’, 15, DETECTED’) 


END 
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3.2.6 The CLOSE Statement 


Syntax 


CLOSE (unit-spec[, STATUS=’status’] 
[, IOSTAT=iocheck }) 


Purpose 


Disconnects the unit specified and prevents subsequent I/O from 
being directed to that unit (unless the same unit number is re- 
opened, possibly associated with a different file or device). The file 
is discarded if the statement includes STATUS=’DELETE’. 


Remarks 


unit-spec is a required unit specifier. It must appear as the first 
argument; it must not be an internal unit specifier. See Section 
4.3.1, “Elements of I/O Statements,” for more information about 
unit specifiers and other elements of I/O statements. 


status is an optional argument and may be either KEEP or 
DELETE. This option is a character constant and must be 
enclosed in single quotation marks. 


If status is not specified, the default is KEEP, except for files 
opened as scratch files, which have DELETE as the default. 
Scratch files are always deleted upon normal program termina- 
tion, and specifying STATUS=’KEEP’ for scratch or temporary 
files has no effect. 


tocheck is an integer variable or integer array element that 
becomes defined as (1) a zero if no error or end of file conditions are 
encountered or (2) a processor-dependent positive integer value if 
an error condition is encountered or (3) a processor-dependent 
negative integer value if an end of fileis encountered and no error 
condition exists. 


CLOSE for unit zero has no effect, since the CLOSE operation is 
not meaningful for the keyboard and screen. Opened files do not 
have to be explicitly closed. Normal termination of an MS- 
FORTRAN program will close each file with its default status. 
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Example 
This deletes an existing file: 


C CLOSE THE FILE OPENED IN OPEN EXAMPLE, 
C DISCARDING THE FILE. 
CLOSE(7,STATUS=’DELETE’) 
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3.2.7 The COMMON Statement 


Syntax 
COMMON [/[cname]/] nlist[[,] /cname]/ nilist)... 


Purpose 


Provides for sharing memory between two or more program units. 
Such program units can manipulate the same datum without 
passing it as an argument. 


Remarks 


cname is a common block name. If a cname is omitted, then the 
blank common block is assumed. 


nlist is a list of variable names, array names, and array declara- 
tors, separated by commas. Formal argument names and func- 
tion names cannot appear in a COMMON statement. 


In each COMMON statement, all variables and arrays appearing 
in each nlist following acommon block name are declared to bein 
that common block. Omitting the first cname specifies that all 
elements in the first nlist are in the blank common block. 


Any common block name can appear more than once in COM- 
MON statements in the same program unit. All elements in all 
nlists for the same common block are allocated in that common 
memory area, in the order they appear in the COMMON 
statement(s). 


The current implementation of MS-FORTRAN restricts the 
occurrence of noncharacter variables to even byte addresses, 
which may affect the association of character and noncharacter 
variables within a COMMON. Because of the order requirement, 
the compiler cannot adjust the position of variables within a 
COMMON to comply with the even address restriction. The com- 
piler will generate an error message for those associations which 
result in a conflict. 
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The length of a common block is equal to the number of bytes of 
memory required to hold all elements in that common block. If 
several distinct program units refer to the same named common 
block, the common block must be the same length in each pro- 
gram unit. Blank common blocks, however, can have different 
lengths in different program units. The length of the blank com- 
mon block is the maximum length. 


Note 


On some systems, other restrictions may apply. For example, 
the size and alignment of variables in large common blocks 
may be restricted. 


Example 


C EXAMPLE OF BLANK AND NAMED COMMON BLOCKS 
PROGRAM MYPROG 
COMMON I, J, X, K(10) 
COMMON /MYCOM/ A(3) 


END 
SUBROUTINE MYSUB 


COMMON I, J, X, K(10) 
COMMON /MYCOM/ A(3) 


END 
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3.2.8 The CONTINUE Statement 


Syntax 
CONTINUE 


Purpose 


Execution has no effect on the program. 


Remarks 


The CONTINUE statement is used primarily as a convenient 
point for placing a statement label, particularly as the terminal 
statement in a DO loop. 


Example 
C EXAMPLE OF CONTINUE STATEMENT 
DO 1014=1,10 


[ARRAY (I) = 0 
10 CONTINUE 
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3.2.9 The DATA Statement 


Syntax 


DATA nilist /clist/ |[,] nlist /clist/]... 


Purpose 


Assigns initial values to variables. 


Remarks 


A DATA statement is an optional, nonexecutable state- 
ment. If present, it must appear after all specification 
statements but may be interspersed with statement func- 
tion and executable statements. 


nlist is a list of variables, array elements, or array names. 


clist is a list of constants, or a constant preceded by an integer 
constant repeat factor and an asterisk, such as: 


5*3.14159 
3*’Help’ 
100*0 


A repeat factor followed by a constant is the equivalent of a list of 
all constants having the specified value and repeated as often as 
specified by the repeat constant. 


There must be the same number of values in each clist as there are 
variables or array elements in the corresponding nlist. The 
appearance of an array in an nlist is equivalent to a list of all 
elements in that array in memory sequence order. Array elements 
must be indexed only by constant subscripts. 


Normal type conversion takes place for each noncharacter ele- 
ment in a clist. Also, with the $NOTSTRICT metacommand in 
effect, a character element in a clist can correspond to a variable 
of any type. 
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The character element must have a length that is less than or 
equal to the length of that variable or array element. If the length 
of the constant is shorter, it is extended to the length of the 
variable by adding blank characters to the right. A single charac- 
ter constant cannot be used to define more than one variable or 
even more than one array element. 


Only local variables and array elements can appear in a DATA 
statement. Formal arguments, variables in blank common, and 
function names cannot be assigned initial values with a DATA 
statement. 


Ina BLOCK DATA subprogram (exclusively) members of named 
common blocks may be assigned initial values with a DATA 
statement. 


Examples 


INTEGER N, ORDER, ALPHA 

REAL COEF (4), EPS(2) 

DATA N /0/, ORDER /3/ 

DATA ALPHA /A’/ 

DATA COEF /1.0,2*3.0,1.0/, EPS(1) /.00001/ 
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3.2.10 The DIMENSION Statement 


Syntax 
DIMENSION array (dim) [, array (dim)]... 


Purpose 


Specifies that a user name is an array and defines the number of 
its elements. 


Remarks 
array is the name of an array. 


dim specifies the dimensions of the array and is a list of one to 
seven dimension declarators separated by commas. 


The number of dimensions in the array is the number of dimen- 
sion declarators in the array declarator. The maximum number of 
dimensions is seven. 


A dimension declarator can be an unsigned integer constant, a 
user name corresponding to a nonarray integer formal argument, 
a user name corresponding to a nonarray integer variable in a 
COMMON block in the same program unit containing the 
DIMENSION statement, or an asterisk. 


A dimension declarator specifies the upper bound of the dimen- 
sion. The lower bound is always one. 


If a dimension declarator is an integer constant, then the array 
has the corresponding number of elements in that dimension. An 
array has a constant size if all of its dimensions are specified by 
integer constants. 


If a dimension declarator is an integer formal argument or an 
integer variable in COMMON, then that dimension is defined to 
be of a size equal to the initial value of the variable upon entry to 
the subprogram unit at execution time. In such a case, the array is 
called an adjustable-size array. 
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If the dimension declarator is an asterisk, the array is an 
assumed-size array and the upper bound of that dimension is not 
specified. 


All adjustable and assumed-size arrays must also be formal 
arguments to the program unit in which they appear. Further- 
more, an assumed-size dimension declarator may only appear as 
the last dimension in an array declarator. 


Array elements are stored in column-major order; the leftmost 
subscript changes most rapidly as the array is mapped into con- 
tiguous memory addresses. 


For example, the following statements 


INTEGER*2 A (2, 3) 
DATA A /1, 2, 3, 4, 5, 6/ 


would result in the following mapping (assuming 
A is placed at location 1000 in memory): 


Array Element Address Value 


A (1, 1) 1000 1 

A (2, 1) 1002 2 

A (1, 2) 1004 3 

A (2, 2) 1006 4 

A (1, 3) 1008 5 

A (2, 3) 100A 6 
Example 


DIMENSION A (2,3), V (10) 
CALL SUBR (A,2,V) 


SUBROUTINE SUBR (MATRIX, ROWS, VECTOR) 

REAL MATRIX, VECTOR 

INTEGER ROWS 

DIMENSION MATRIX (ROWS,*), VECTOR (10), 
+LOCAL (2,4,8) 

MATRIX (1,1) = VECTOR (5) 


END 
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3.2.11 The DO Statement 


Syntax 


DO slabel {,] variable = expr1, expr2 [, expr3] 


Purpose 


Repeatedly evaluates the statements following the DO, 
through and including the statement with the label slabel. 


Remarks 

slabel is the statement label of an executable statement. 
variable is an integer variable. 

exprl, expr2, expr3 are integer expressions. 


The label referred to must appear after the DO statement and be 
contained in the same program unit. The specified statement is 
called the terminal statement of the DO loop and must not be an 
unconditional GOTO, assigned GOTO, arithmetic IF, block IF, 
ELSEIF, ELSE, ENDIF, RETURN, STOP, END, or DO state- 
ment. If the terminal statement is a logical IF, it may contain any 
executable statement except those not permitted inside a logical 
IF statement. 


The range of a DO loop begins with the statement that follows the 
DO statement and includes the terminal statement of the DO 
loop. 


The following restrictions affect the execution of a DO statement: 


1. Ifa DO statement appears in the range of another DO 
loop, its range must be entirely contained within the 
range of the enclosing DO loop, although the loops may 
share a terminal statement. 


2. If a DO statement appears within an IF, ELSEIF, or 
ELSE block, the range of the associated DO loop must be 
entirely contained in the particular block. 
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3. Ifa block IF statement appears within the range of a DO 
loop, its associated ENDIF statement must also appear 
within the range of that DO loop. 


The DO variable may not be modified in any way by the state- 
ments within the range of the DO loop associated with it. Jump- 
ing into the range of a DO loop from outside its range is not 
permitted. (However, a special feature, added for compatibility 
with earlier versions of FORTRAN, does permit “extended range” 
DO loops. See Section 6.2.3, “The $DO66 Metacommand,” for 
more information.) 


In some circumstances, the value of a DO variable may overflow 
as a result of an increment that is performed prior to testing it 
against the upper bound. If this happens, your program is techni- 
cally in error, but the error is not detected as such by either the 
compiler or the runtime. However, if the DO variable has been 
either explicitly or implicitly defined as INTEGER*2, and the 
possiblity of overflow exists, the arithmetic for the statement will 
be carried out in 32-bit mode with the necessary conversions and 
the loop will terminate. 


For example: 


INTEGER?*2 | 
DO 100 1=32760,32767 


100 CONTINUE 


If the DO variable is either explicitly or implicitly defined as 
INTEGER*4, and an overflow occurs, the value will wrap around, 
and the loop will not terminate. 


The execution of a DO statement sets the following process in 
motion: 


1. The expressions exprl, expr2, and expr are evaluated. If 
expré is not present, itis assumed that expr3 evaluated to 
one. 


2. The DO variable is set to the value of the expression, 
expr. 


3. The iteration count for the loop is: 


MAX0O(((expr2-expr1+expr3)/expr3),0) 
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The iteration count may be zeroif either of the following is 
true: 


a. expr! is greater than expr2 and exprs is greater 
than zero 


b. exprlisless than expr2 and exprs is less than zero 


However, if the $DO66 metacommand is in effect, the 
iteration count is at least one. See Section 6.2.2, “The 
$DO066 Metacommand,” for more information about this 
feature. 


The iteration count is tested, and, if it exceeds zero, the 
statements in the range of the DO loop are executed. 


Following the execution of the terminal statement of a DO loop, 
these steps take place: 


Ls 


The value of the DO variable is incremented by the value 
of expr3 that was computed when the DO statement was 
executed. 


The iteration count is decremented by one. 


The iteration count is tested, and if it exceeds zero, the 
statements in the range of the DO loop are executed again. 


The value of the DO variable is well-defined, regardless of 
whether the DO loop exits because the iteration count becomes 
zero, or because of a transfer of control out of the DO loop. 
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Example 


C EXAMPLE OF DO STATEMENTS 


C INITIALIZE A 20-ELEMENT REAL ARRAY 
DIMENSION ARRAY (20) 
DO 11=1, 20 

1 ARRAY (I) = 0.0 


C PERFORM A FUNCTION 11 TIMES 
DO 2, | = -30, -60, -3 


J=1 

J=-9-J 

ARRAY(J) = MYFUNC(I) 
y) CONTINUE 


The following shows the final value of a DO variable: 
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C DISPLAY THE NUMBERS 1 TO 11 ON THE SCREEN 
DO 200 I=1,10 

200 WRITE(*,’(5)’)| 
WRITE(*,"(15)’)| 


Statements 
3.2.12 The ELSE Statement 


Syntax 
ELSE 


Purpose 


Marks the beginning of an ELSE block. 


Remarks 


The associated ELSE block consists of all of the executable 
statements (possibly none) that follow the ELSE statement, up to 
but not including the next ENDIF statement at the same IF-level 
as this ELSE statement. The matching ENDIF statement must 
appear before any intervening ELSE or ELSEIF statements of 
the same IF-level. (See Section 3.2.25, “The IF THEN ELSE 
Statement,” for a discussion of IF-levels.) 


Transfer of control into an ELSE block from outside that block is 
not permitted. 


Example 


CHARACTER C 


READ (*,'(A)’) C 
IF (C .EQ. ’A’) THEN 
CALL ASUB 
ELSE 
CALL OTHER 
ENDIF 
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3.2.13 The ELSEIF Statement 


Syntax 
ELSEIF (expression) THEN 


Purpose 


Causes execution of a block of statements if expression is true. 


Remarks 


expression is a logical expression. Ifits value is true and there is at 
least one statement in the ELSEIF block, the next statement 
executed is the first statement of the ELSEIF block. 


If the expression evaluates to true and the ELSEIF block has no 
executable statements, the next statement executed is the next 
ENDIF statement at the same IF-level as the ELSEIF statement. 
If the expression evaluates to false, the next statement executed is 
the next ELSEIF, ELSE, OR ENDIF statement that has the 
same IF-level as the ELSEIF statement. See Section 3.2.26, ““The 
IF THEN ELSE Statement,” for a discussion of IF-levels. 


The associated ELSEIF block consists of all the executable 
statements (possibly none) that follow, up to the next ELSEIF, 
ELSE, or ENDIF statement that has the same IF-level as this 
ELSEIF statement. 


Following the execution of the last statement in the ELSEIF 
block, the next statement to be executed is the next ENDIF state- 
ment at the same IF-level as this ELSEIF statement. 


Transfer of control into an ELSEIF block from outside that block 
is not permitted. 
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CHARACTER C 


READ (+,’(A)’) C 

IF (C .EQ. A’) THEN 
CALL ASUB 

ELSEIF (C .EQ. 'X’) THEN 
CALL XSUB 

ELSE 
CALL OTHER 

ENDIF 


Statements 
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3.2.14 The END Statement 
Syntax 
END 


Purpose 


In a subprogram, has the same effect as a RETURN statement; 
in the main program, terminates execution of the program. 
Always marks the end of the program unit in which it appears. 


Remarks 


The END statement must appear as the last statement in every 
program unit. Unlike other statements, an END statement must 
appear alone on an initial line, with no label. No continuation 
lines may follow the END statement. No other FORTRAN state- 
ment, such as the ENDIF statement, may have an initial line that 
appears to be an END statement. 


Example 


C EXAMPLE OF END STATEMENT 
C END STATEMENT MUST BE LAST STATEMENT 
C IN A PROGRAM 

PROGRAM MYPROG 

WRITE(*, (10H HI WORLD’) 

END 
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3.2.15 The ENDFILE Statement 


Syntax 
ENDFILE uwnit-spec 


Purpose 


Writes an end of file record as the next record of the file connected 
to the specified unit. 


Remarks 


unit-spec is a required external unit specifier. See Section 4.3.1, 
“Elements of I/O Statements,” for more information about unit 
specifiers and other elements of I/O statements. 


After writing the end of file record, ENDFILE positions the file 
after the end of file record. This prohibits further sequential data 
transfer until after execution of eithera BACKSPACE or REWIND 
statement. 


An ENDFILE on a direct access file makes all records written 
beyond the position of the new end of file disappear. 


Example 


WRITE (6,*) X 
ENDFILE 6 
REWIND 6 
READ (6,*) Y 
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3.2.16 The ENDIF Statement 


Syntax 
ENDIF 


Purpose 


Terminates a block IF statement. Execution of an ENDIF state- 
ment itself has no effect on the program. 


Remarks 


There must be a matching ENDIF statement for every block IF 
statement in a program unit, to identify which statements belong 
to a particular block IF statement. See Section 3.2.26, “The IF 
THEN ELSE Statement,” for discussion and examples of block 
IFs.  °* 


Example 


IF (1 .LT. 0) THEN 


X=-1 
Y=-1 
ENDIF 
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3.2.17 The EQUIVALENCE Statement 


Syntax 
EQUIVALENCE (nist) [, (nlist)]... 


Purpose 


Specifies that two or more variables or arrays are to share the 
same memory. 


Remarks 


nlist is a list of at least two elements, separated by commas. An 
nlist may include variable names, array names, or array element 
names; argument names are not allowed. Subscripts must be 
integer constants and must be within the bounds of the array they 
index. No automatic type conversion occurs if the shared ele- 
ments are of different types. 


An EQUIVALENCE statement specifies that the memory se- 
quences of the elements that appear in the list nlist must have the 
same first memory location. Two or more variables are said to be 
associated if they refer to the same actual memory. Thus, an 
EQUIVALENCE statement causes its list of variables to become 
associated. An array name, if present in an EQUIVALENCE 
statement, refers to the first element of the array. 


You cannot associate character and noncharacter entities when 
the $STRICT metacommand is in effect (SNOTSTRICT is the 
default). See the odd byte boundary restriction described in 
number 3 in the following list. 


Associated character entities may overlap, as in the following 
example: 


CHARACTER A*4, B*4, C(2)*3 
EQUIVALENCE (A,C(1)), (B,C(2)) 
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The preceding example can be graphically illustrated as follows: 


ce Roe ee ee ee 
i 


A 


Restrictions 
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You cannot force a variable to occupy more than one 
distinct memory location; nor can you force two or more 
elements of the same array to occupy the same memory 
location. For example, the following statement would 
force R to occupy two distinct memory locations or S(1) 
and S(2) to occupy the same memory location: 


C THIS IS AN ERROR 
REAL R,S(10) 
EQUIVALENCE (R,S(1)),(R,S(2)) 


An EQUIVALENCE statement cannot specify that con- 
secutive array elements not be stored in sequential order. 
The following, for example, is not permitted: 


C THIS IS ANOTHER ERROR 
REAL R(10),S(10) 
EQUIVALENCE (R(1),S(1)), 

+(R(5),S(6)) 


You cannot equivalence character and noncharacter enti- 
ties so that the noncharacter entities can start on an 
odd byte boundary. 


For entities not in a common block, the compiler will at- 
tempt to align the noncharacter entities on word bounda- 
ries. An error message will be issued if such an alignment 
is not possible because of multiple equivalencing. For ex- 
ample, the following would result in an error, since it is not 
possible for both variables A and B to be word aligned: 


CHARACTER*1 C1(10) 
REAL A,B 
EQUIVALENCE (A,C1(1)) 
EQUIVALENCE (B,C1(2)) 


Statements 


For entities in a common block, since positions are fixed, it 
is your responsibility to assure word alignment for the 
noncharacter entities. An error message will be issued for 
any that are not word aligned. 


4. An EQUIVALENCE statement cannot associate an ele- 
ment of type CHARACTER with a noncharacter element 
in a way that causes the noncharacter element to be 
allocated on an odd byte boundary. However, there are no 
boundary restrictions for equivalencing of character 
variables. 


5. When EQUIVALENCE statements and COMMON 
statements are used together, several additional restric- 
tions apply: 


a. An EQUIVALENCE statement cannot cause 
memory in two different common blocks to be 
shared. 


b. An EQUIVALENCE statement can extend a 
common block by adding memory elements fol- 
lowing the common block, but not preceding the 
common block. 


c. Extending a named common block with an 
EQUIVALENCE statement must not make its 
length different from the length of the same 
named common block in other program units. 


For example, the following is not permitted because it 
extends the common block by adding memory preceding 
the start of the block: 


C THIS IS A MORE SUBTLE ERROR 
COMMON /ABCDE/ R(10) 
REAL S(10) 
EQUIVALENCE (R(1),S(10)) 


Example 
C CORRECT USE OF EQUIVALENCE STATEMENT 


CHARACTER NAME, FIRST, MIDDLE, LAST 
DIMENSION NAME(60), FIRST(20), 


1 MIDDLE(20), LAST(20) 
EQUIVALENCE (NAME(1), FIRST(1)), 

1 (NAME(21),MIDDLE(1)), 

y) (NAME(41), LAST(1)) 
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3.2.18 The EXTERNAL Statement 


Syntax 
EXTERNAL name [, name]... 


Purpose 


Identifies a user-defined name as an external subroutine or 
function. 


Remarks 
name is the name of an external subroutine or function. 


Giving a name in an EXTERNAL statement declares it as an 
external procedure. Statement function names cannot appear in 
an EXTERNAL statement. If an intrinsic function name appears 
inan EXTERNAL statement, that name becomes the name of an 
external procedure, and the corresponding intrinsic function can 
no longer be called from that program unit. A user name can only 
appear once in an EXTERNAL statement in any given program 
unit. 


In assembly language and MS-Pascal, EXTERN means that an 
object is defined outside the current compilation or assembly unit. 
This is unnecessary in MS-FORTRAN since standard FOR- 
TRAN practice assumes that any object referred to but not 
defined in a compilation unit is defined externally. 


In FORTRAN, therefore, EXTERNAL is used primarily to spec- 
ify that a particular user-defined name is a subroutine or function 
to be used as a procedural parameter. EXTERNAL may also 
indicate that a user-defined function is to replace an intrinsic 
function of the same name. 
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Examples 


C EXAMPLE OF EXTERNAL STATEMENT 
EXTERNAL MYFUNC, MYSUB 

C MYFUNC AND MYSUB ARE PARAMETERS TO CALC 
CALL CALC (MYFUNC, MYSUB) 


C EXAMPLE OF A USER-DEFINED FUNCTION 
C REPLACING AN INTRINSIC 

EXTERNAL SIN 

X = SIN (A,4.2,37) 
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3.2.19 The FORMAT Statement 


Syntax 
FORMAT (format-spec) 


Purpose 


Used in conjunction with formatted I/O statements, provides 
information that directs the editing of data. 


Remarks 


format-spec is a list format specifications, which provide explicit 
editing information. The format-spec must be enclosed in paren- 
theses. A format specification may take one of the following 
forms: 


[r] repeatable edit descriptor 
nonrepeatable edit descriptor 
[r] (format-spec) 


Ther, if present, is anonzero, unsigned, integer constant calleda 
repeat specification. 


Up to three levels of nested parentheses are permitted within the 
outermost level of parentheses. 


Edit descriptors, both repeatable and nonrepeatable, are listed in 
Table 3.7 and described in more detail in Section 4.4.2, “Edit 
Descriptors.” 


You may omit the comma between two list items if the resulting 
format specification is not ambiguous; for example, after a P edit 
descriptor or before or after the slash (/) edit descriptor. 


FORMAT statements must be labeled and, like all nonexecutable 
statements, cannot be the target of a branching operation. 
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Table 3.7 

Edit Descriptors 

Repeatable Nonrepeatable 

Iw *xxx’ (character constants) 
Gu.d nHxxx (character constants) 
Gw.dEe nX (positional editing) 

Fw.d / (terminate record) 

Ew.d \ (don’t terminate record) 
Ew.dEe kP (scale factor) 

Dw.d BN (blanks as blanks or ignored ) 
Lw BZ (blanks as zeros) 

A{w] Tc (positional editing) 


TRe (positional editing) 
TLec (positional editing) 
: (format scan terminator) 
SP (optional plus character control) 
SS (optional plus character control) 
S (optional plus character control) 
Notes for Table 3.7 
A) For the repeatable edit descriptors: 
1. <A,D,E,F,G,I,and Lindicate the manner of editing. 
2.  (w) and (e) are nonzero, unsigned, integer constants. 
3. (d)is an unsigned integer constant. 
B) For the nonrepeatable edit descriptors: 


1. (),H, X,(/), (\), P, BN, BZ, T, TL, TR, S, SS, SP, and 
(:) indicate the manner of editing. 


(x) is any ASCII character. 


2 

3. (n) is a nonzero, unsigned, integer constant. 
4, (k)is an optionally signed integer constant. 
5 


(c) is an unsigned integer constant. 


Note 


Invalid format strings cause warning messages. 


See Section 4.4, “Formatted I/O,” for further information on edit 
descriptors and formatted I/O. 
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3.2.20 The FUNCTION Statement (External) 


Syntax 
[type] FUNCTION fname ([farg [, farg]...]) 


Purpose 


Identifies a program unit as a function and supplies its type, 
name, and optional formal parameter(s). 


Remarks 
type is one of the following: 


INTEGER 
INTEGER*2 
INTEGER*4 
REAL 

REAL*4 
REAL*8 
DOUBLE PRECISION 
LOGICAL 
LOGICAL#2 
LOGICAL*4 
CHARACTER 
CHARACTER#n 
COMPLEX 
COMPLEX*8 
COMPLEX*16 


fname is the user-defined name of the function. 


farg is a formal argument name. 
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The function name is global, but it is also local to the function it 
names. If type is omitted from the FUNCTION statement, the 
function’s type is determined by default and by any subsequent 
IMPLICIT or type statements that would determine the type of an 
ordinary variable. 


If type is present, then the function name cannot appear in any 
additional type statements. 


Note 


CHARACTER-typed functions may not be declared with an 
asterisk (*) as a length specifier. For example, the FUNC- 
TION statement, 


CHARACTER *(*) F(X) 


is not allowed. 


If a function is CHARACTER-typed, then n may be specified in 
the following range (1 <= n <= 127). 


The list of argument names defines the number and, with any 
subsequent IMPLICIT, EXTERNAL, type, or DIMENSION 
statements, the type of arguments to that function. Neither 
argument names nor the function name can appear in COM- 
MON, DATA, EQUIVALENCE, or INTRINSIC statements. 


The function name must appear as a variable in the program unit 
that defines the function. Every execution of that function must 
assign a value to that variable. The final value of this variable, 
upon execution of a RETURN or an END statement, defines the 
value of the function. 


Note 


Alternate return specifiers are not allowed in FUNCTION 
statements. 
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After being defined, the value of this variable can be referenced in 
an expression, like any other variable. An external function may 
return values in addition to the value of the function by assign- 
ment to one or more of its formal arguments. 


A function can be called from any program unit. However, FOR- 
TRAN does not allow recursive function calls, which means that 
a function cannot call itself directly, nor can it call another func- 
tion if such a call results in that function being called again before 
it returns control to its caller. However, recursive calls are not 
detected by the compiler, even if they are direct. 


Example 


C EXAMPLE OF A FUNCTION REFERENCE 
C GETNO IS A FUNCTION THAT READS A 
C NUMBER FROM A FILE 
{=2 
10 IF (GETNO(I) .EQ. 0.0) GO TO 10 
STOP 
END 


FUNCTION GETNO(NOUNIT) 
READ(NOUNIT, ’(F10.5)’) R 
GETNO =R 

RETURN 

END 
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3.2.21 The GOTO Statement (Assigned GOTO) 


Syntax 
GOTO name [{,] (slabel[, slabel]...)] 


Purpose 


Causes the statement labeled by the label last assigned to name to 
be the next statement executed. 


Remarks 
name is an integer variable name. 


slabelis a statement label of an executable statement in the same 
program unit as the assigned GOTO statement. 


The same statement label may appear repeatedly in the list of 
labels. When the assigned GOTO statement is executed, name 
must have been assigned the label of an executable statement 
found in the same program unit as the assigned GOTO statement. 


Including the optional list of labels and selecting the $DEBUG 
metacommand results in a runtime error if the label last assigned 
to name is not among those listed. Jumping into a DO, IF, 
ELSEIPF, or ELSE block from outside the block is not permitted. 


A special feature, extended range DO loops, does permit jumping 
into a DO block. See Section 6.2.3, “The $DO66 Metacommand,” 
for more information about this feature. 


Example 


C EXAMPLE OF ASSIGNED GOTO 
ASSIGN 10 TO | 
GOTO | 

10 CONTINUE 


93 


Microsoft FORTRAN Reference Manual 
3.2.22 TheGOTO Statement (Computed GOTO) 


Syntax 
GOTO (slabel[, slabel]..) [,] i 


Purpose 
Transfers control to the statement labeled by the ith label in the 
list. 
Remarks 
slabel is the statement label of an executable statement from the 
same program unit as the computed GOTO statement. The same 
statement label may be repeated in the list of labels. 
iis an integer expression. 
If there are n labels in the list of labels and i is out of range, the 
computed GOTO statement serves as a CONTINUE statement. i 
would be out of range in either of the following cases: 

eal 

i>n 


Otherwise, the next statement executed is the one labeled by the 
ith label in the list of labels. 


Jumping into a DO, IF, ELSEIF, or ELSE block from outside the 
block is not permitted. A special feature, extended range DO 
loops, does permit jumping into a DO block. See Section 6.2.3, 
“The $DO66 Metacommand,” for more information. 
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Example 


C EXAMPLE OF COMPUTED GOTO 
= 


GOTO (10, 20) 
10 CONTINUE 
20 CONTINUE 
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3.2.23 The GOTO Statement 
(Unconditional GOTO) 


Syntax 
GOTO slabel 


Purpose 


Transfers control to the statement labeled slabel. 


Remarks 


slabel is the statement label of an executable statement in the 
same program unit as the GOTO statement. 


Jumping into a DO, IF, ELSEIF, or ELSE block from outside the 
block is not permitted. A special feature, extended range DO 
loops, does permit jumping into a DO block. See Section 6.2.3, 
“The $DO66 Metacommand,” for more information about this 
feature. 


Example 


C EXAMPLE OF UNCONDITIONAL GOTO 
GOTO 4022 


4022 CONTINUE 
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3.2.24 The IF Statement (Arithmetic IF) 


Syntax 


IF (expression) slabell, slabel2, slabel3 


Purpose 


Evaluates the expression and transfers contro] to the statement 
labeled by one of the specified labels, according to the result of the 
expression. 


Remarks 
expression is an integer or real expression. 


slabell, slabel2, and slabel3 are statement labels of executable 
statements in the same program unit as the arithmetic IF 
statement. 


The same statement label may appear more than once among the 
three labels. The first label is selected if the value of the expression 
is less than zero, the second label if the value equals zero, and the 
third label if the value is greater than zero. The next statement 
executed is the statement labeled by the selected label. 


Jumping into a DO, IF, ELSEIF, or ELSE block from outside the 
block is not permitted. A special feature, extended range DO 
loops, does permit jumping into a DO block. See Section 6.2.3, 
“The $DO66 Metacommand,” for more information about this 
feature. 
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Example 


C EXAMPLE OF ARITHMETIC IF 


l=0 

IF (1) 10, 20, 30 
10 CONTINUE 
20 CONTINUE 
30 CONTINUE 
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3.2.25 The IF Statement (Logical IF) 


Syntax 


IF (expression) statement 


Purpose 

Evaluates the logical expression and, if the value of that expres- 
sion is .TRUE., executes the statement given. If the expression 
evaluates to. FALSE., the statement is not executed and execution 
continues as if a CONTINUE statement were encountered. 
Remarks 

expression is a logical expression. 

statement is any executable statement except a DO, block IF, 
ELSEIF, ELSE, ENDIF, END, or another logical IF statement. 
Example 

C EXAMPLE OF LOGICAL IF 


IF (1.EQ. 0) J=2 
IF (X .GT. 2.3) GOTO 100 


100 CONTINUE 
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3.2.26 The IF THEN ELSE Statement 
(Block IF) 


Syntax 
IF (expression) THEN 


Purpose 


Evaluates the expression and, if the expression evaluates to 
._TRUE., begins executing statements in the IF block. If the 
expression evaluates to .FALSE., control transfers to the next 
ELSE, ELSEIF, or ENDIF statement at the same IF-level. 


Remarks 
expression is a logical expression. 


The associated IF block consists of all the executable statements 
(possibly none) that appear following the statement, up to but not 
including the next ELSEIF, ELSE, or ENDIF statement that has 
the same IF-level as this block IF statement. 


After execution of the last statement in the IF block, the next 
statement executed is the next ENDIF statement at the same 
IF-level as this block IF statement. If the expression in this block 
IF statement evaluates to .TRUE., and the IF block has no execu- 
table statements, the next statement executed is the next ENDIF 
statement at the same IF-level as the block IF statement. If the 
expression evaluates to .FALSE., the next statement executed is 
the next ELSEIF, ELSE, or ENDIF statement at the same IF- 
level as the block IF statement. 


Transfer of control into an IF block from outside that block is not 
permitted. 
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IF-Levels: 


The concept of an IF-level in block IF and associated statements 
is described as follows. For any statement, its IF-levelisn1 minus 
n2, where: 


1. 


nl is the number of block IF statements from the begin- 
ning of the program unit in which the statement occurs, 
up to and including that statement. 


n2 is the number of ENDIF statements from the begin- 
ning of the program unit, up to, but not including, that 
statement. 


The IF-level of every statement must be greater than or 
equal to zero and the IF-level of every block IF, ELSEIF, 
ELSE, and ENDIF must be greater than zero. Finally, the 
IF-level of every END statement must be zero. The IF- 
level defines the nesting rules for the block IF and asso- 
ciated statements and defines the extent of IF, ELSEIF, 
and ELSE blocks. 


Example 1 


Simple block IF that skips a group of statements if the expression 


is false: 


IF(I.LT.10) THEN 


ENDIF 


Some statements executed 
only if |.LT.10 
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Example 2 
Block IF with ELSEIF statements: 


nt GT.1000) THEN 
Some statements executed 
only if J.GT.1000 
ELSEIF(. GT.100) THEN 
Some statements executed 
only if J.GT.100 and J.LE.1000 
ELSEIF(. GT.10) THEN 
Some statements executed 


: only if J.GT.10 and J.LE.100 
ELSE 


Some statements executed 
; only if J.LE.10 
ENDIF 
Example 3 


Nesting of constructs and use of an ELSE statement following a 
block IF without intervening ELSEIF statements: 


va LT.100) THEN 
Some statements executed 
only if !|.LT.100 
IF(J.LT.10) THEN 
Some statements executed 
only if |.LT.100 and J.LT.10 
ENDIF 
Some statements executed 
; only if I|.LT.100 
ELSE 
Some statements executed 
only if |.GE.100 
IF(J.LT.10) THEN 
Some statements executed 
only if |1.GE.100 and J.LT.10 


ENDIF 
Some statements executed 
, only if |.GE.100 
ENDIF 
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3.2.27 The IMPLICIT Statement 


Syntax 


Purpose 


Defines the default type for user-declared names. 


Remarks 


type is one of the following types: 


INTEGER 
INTEGER*2 
INTEGER*4 
REAL 

REAL*4 

REAL*8 
DOUBLE PRECISION 
COMPLEX 
COMPLEX*8 
COMPLEX*16 
LOGICAL 
LOGICAL*2 
LOGICAL*4 
CHARACTER 
CHARACTER*n 


Statements 


a is either a single letter or a range of letters. A range of letters is 
indicated by the first and last letters in the range, separated by a 
minus sign. The letters for a range must be in alphabetical order. 


n(as in CHARACTER¢éz7 ) may be in the following range (1 <=n 
<= 127). 


An IMPLICIT statement defines the type and size for all user- 
defined names that begin with the letter or letters given. An 
IMPLICIT statement applies only to the program unit in which it 
appears and does not change the type of any intrinsic function. 
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IMPLICIT types for any specific user name can be overridden or 
confirmed if that name is given in a subsequent type statement. 
An explicit type in a FUNCTION statement also takes priority 
over an IMPLICIT statement. If the type in question is a charac- 
ter type, the length is also overridden by a later type definition. 


A program unit can have more than one IMPLICIT statement. 
However, all IMPLICIT statements must precede all other speci- 
fication statements in that program unit. The same letter cannot 
be defined more than oncein an IMPLICIT statement in the same 
program unit. 


Example 


C EXAMPLE OF IMPLICIT STATEMENT 
IMPLICIT INTEGER (A - B) 
IMPLICIT CHARACTER*10 (N) 
AGE = 10 
NAME = ’PAUL’ 
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3.2.28 The INQUIRE Statement 


Syntax 


INQUIRE (UNIT=uwnit-spec [, specifier=target|...) 
or INQUIRE (FILE=filename [, specifier=target...) 


Purpose 


The INQUIRE statement is used to examine the properties of a 
connected unit or a named file. 


Remarks 


The INQUIRE statement determines the attributes of a file and 
assigns the values of the attributes named by the specifiers to the 
corresponding targets. A target must be a variable or array ele- 
ment name. 


The INQUIRE statement may be executed at any time. The 
values it returns are those that are current at the time of the call. 


If youinquire by unit, the unit specifier, UNIT=, must be in the list 
but FILE= may not be in the list. If you inquire by file, the file 
specifier, FILE=, must be in the list but UNIT= is not allowed. 


The discussion of inquiry specifiers that follows summarizes the 
specifiers that MS-FORTRAN supports. 


UNIT=unit-spec must be the first specifier in an inquire-by-unit. 
unit-spec is either: 


a) an integer (external unit) 


b) an asterisk (*) identifying a processor-determined unit 
that is preconnected for formatted sequential access 
(external unit) 


FILE=filename gives a name for the file in an inquiry by file and 


must be the first specifier in an inquire-by-file. The filename must 
be a character variable or array element. 
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ERR=slabel2. slabel2 is the statement label of an executable 
statement that appears in the same program unit as the error 
specifier. If an error occurs, control will be transferred to this 


label. 


EXIST=logical-exist. logical-exist is a logical variable or logical 
array element. Execution of INQUIRE by FILE= sets the variable 
.TRUE. if the specified file exists and .FALSE. if the specified file 
does not exist. Execution of INQUIRE by UNIT= sets the variable 
.TRUE. if the specified unit exists, and .FALSE. otherwise. 


NAMED=logical-named. logical-named is a logical variable or a 
logical array element. Execution of INQUIRE by UNIT= sets the 
variable .TRUE. if the file was opened by name and .FALSE., 
otherwise. If the value of logical-named is .FALSE., then the file 
connected to the unit is a temporary file. This is one way of 
distinguishing temporary files from other files. 


A unit number is not named if it is not open or it is open toa 
scratch file. 


IOSTAT=iocheck. iocheck is an integer variable or integer array 
element that becomes defined as (1) a zero if no error or end of file 
conditions are encountered or (2) a processor-dependent positive 
integer value if an error condition is encountered or (3) a 
processor-dependent negative integer value if an end of file is 
encountered and no error condition exists. 


OPENED=logical-opened. logical-opened is a logical variable or 
logical array element. In an inquire-by-file, it is set to. TRUE. if 
the named file is currently connected to any unit. Otherwise, it is 
set to. FALSE. In an inquire-by-unit, itis set to. TRUE. if any file 
is open on the given unit, and .FALSE. otherwise. 


NUMBER=num. num is an integer variable or integer array ele- 
ment. num becomes undefined if no unit is connected to the file. 
Otherwise, in an inquire-by-file, num is set to the unit number 
connected to the file. 


NAME=filename. filename is a character variable or character 
array element. In an inquire-by-unit, filename is set to the name of 
the file. filename becomes undefined if the file doesn’t have a 
name, or if there is no file connected to the unit. 
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ACCESS=type-access. type-access is a character variable or 
character array element that is set to SEQUENTIAL if a file is 
connected for sequential access or DIRECT’ if a file is connected 
for direct access. If no file is connected to the given unit, type- 
access becomes undefined. 


SEQUENTIAL +logical-sequential. logical-sequential is a charac- 
ter variable or character array element that is set to YES’ if 
sequential is among the set of allowable access modes for the 
connected file, or "NO’ or UNKNOWN’ otherwise. 


DIRECT>=logical-direct. logical-direct is character variable or 
character array element that is set to YES’ if direct is among the 
set of allowable access modes for the connected file, or NO’ or 


"UNKNOWN’ otherwise. 


FORM=format-connection. format-connection is a character var- 
iable or character array element that is set to FORMATTED’ if 
the file is connected for formatted I/O or ’"UNFORMATTED’ 
otherwise. 


FORMATTED=logical-formatted. logical-formatted is a charac- 
ter variable or character array element that is set to YES’ if 
formatted is among the set of allowable forms of the file; NO’ or 
"UNKNOWN’ otherwise. 


UNFORMATTED=logical-unformatted. logical-unformatted is a 
character variable or character array element that is set to YES’ 
if unformatted is among the set of allowable forms of the file; ’NO’ 
or UNKNOWN’ otherwise. 


RECL+=rec-length. rec-length is an integer variable or array ele- 
ment name that specifies the length (in bytes) of each record ina 
file that is connected for direct access. If the file is connected for 
unformatted I/O the value will be in processor-dependent units. 


NEXTREC=nextrec-num. nextrec-num is an integer variable or 
integer array element that is assigned the record number of the 
next record in a file that is connected for direct access. The first 
record in such a file has record number 1. 


BLANK=blank. blank is a character variable or character array 


element thatis set to’NULL ifthe BN edit descriptor is in effect or 
*ZERO?’ if BZ is in effect. 
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3.2.29 The INTRINSIC Statement 


Syntax 
INTRINSIC namel [, name2]... 


Purpose 


Declares that a name is an intrinsic function. 


Remarks 
name is an intrinsic function name. 


Each user name may appear only once in an INTRINSIC state- 
ment. A name that appears in an INTRINSIC statement cannot 
appear in an EXTERNAL statement. All names used in an 
INTRINSIC statement must be system-defined INTRINSIC 
functions. For a list of these functions, see Table 5.1 in Chapter 5, 
“Programs, Subroutines, and Functions.” 


You must specify the name of an intrinsic function in an 
INTRINSIC statement if you wish to pass it as an argument. 


Example 


C EXAMPLE OF INTRINSIC STATEMENT 
INTRINSIC SIN, COS 

C SIN AND COS ARE ARGUMENTS TO CALC2 
X = CALC2 (SIN, COS) 
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3.2.30 The OPEN Statement 


Syntax 


OPEN (unit-spec |, FILE=fname] 

[, STATUS=’status’][, ACCESS=’access’| 
[, FORM=’format’] [, IOSTAT=iocheck] 

[, RECL=rec-length]}) 


Purpose 


Associates a unit number with an external device or file on an 
external device. 


Remarks 


unit-spec is a required unit specifier. It must appear as the first 
argument; it must not be an internal unit specifier. See Section 
4.3.1, “Elements of I/O Statements,” for more information about 
unit specifiers and other elements of I/O statements. 


fname is a character expression. This optional argument, if pres- 
ent, must appear as the second argument. If the argument is 
omitted, the compiler creates a temporary scratch file with aname 
unique to the unit.’ The scratch file is deleted when it is either 
explicitly closed or the program terminates normally. 


If the filename specified is blank (FILE=’ ’), the user will be 
prompted for a filename at runtime. If opened with STATUS 
=’OLD’, the file itself must exist. 


All arguments after fname are optional and can appear in any 
order. Except for RECL= and IOSTAT=, these options are charac- 
ter constants with optional trailing blanks and must be enclosed 
in single quotation marks. 


status’ is OLD (the default) or NEW. OLD is for reading or 
writing existing files; NEW is for writing new files. 


access’ is SEQUENTIAL (the default) or DIRECT. 


109 


Microsoft FORTRAN Reference Manual 


‘format? is FORMATTED, UNFORMATTED, or BINARY. If 
access is SEQUENTIAL, the default is FORMATTED; if access 
is DIRECT, the default is UNFORMATTED. 


tocheck is an integer variable or integer array element that 
becomes defined as (1) a zero if no error or end of file conditions are 
encountered or (2) a processor-dependent positive integer value if 
an error condition is encountered or (3) a processor-dependent 
negative integer value if an end of file is encountered and no error 
condition exists. 


rec-length (record length) is an integer expression that specifies 
the length of each record in bytes. This argument is applicable 
only for DIRECT access files, for which it is required. 


Associating unit zero to a file has no effect: Unit zero is perman- 
ently connected to the keyboard and screen. 


Example 1 


C PROMPT USER FOR A FILE NAME. 
WRITE(«,’(A\)’) ‘Output file name?’ 

C PRESUME THAT FNAME IS SPECIFIED TO BE 

C CHARACTER +64. 

C READ THE FILE NAME FROM THE KEYBOARD. 
READ(*,'(A)’) FNAME 

C OPEN THE FILE AS FORMATTED SEQUENTIAL 

CAS UNIT 7. 

C NOTE THAT THE ACCESS SPECIFIED WAS 

C UNNECESSARY SINCE IT IS THE DEFAULT. 

C FORMATTED IS ALSO THE DEFAULT. 
OPEN(7,FILE=-FNAME,ACCESS='’SEQUENTIAL, 

+STATUS=’NEW’) 


Example 2 
C OPEN AN EXISTING FILE CREATED BY EDITOR 


C CALLED DATA3.TXT AS UNIT 3. 
OPEN(3,FILE=’'DATA3. TXT’) 
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3.2.31 The PARAMETER Statement 


Syntax 
PARAMETER (p=e [, p=el....) 


Purpose 


The PARAMETER statement is used to give a constant a sym- 
bolic name. 


Remarks 


The symbolic name (p) must match the type of the expression (e). 
For example, if (e) is an arithmetic constant expression, then (p) 
must be of that type. If (e) is a logical or character constant 
expression, (p) must be of that type. To use a symbolic name in 
subsequent expressions, it must be defined in the same or in a 
previous PARAMETER statement in the same program unit. 


If a constant’s symbolic name is not of the default value of either 
integer or real and if the symbolic name is not of the default 
length, a type-statement or IMPLICIT statement must declare it 
before it appears in the source. 


A symbolic name cannot be used in format specifications and in 
some other contexts for example, in a COMPLEX constant. 


If (e) is not of type INTEGER, it must be a constant. 


Example 1 


PARAMETER (NBLOCKS = 10) 


Example 2 

REAL MASS 

PARAMETER (MASS = 47.3) 
Example 3 


IMPLICIT REAL (L-M) 
PARAMETER (LOAD = 10.0, MASS = 32.2) 
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3.2.32 The PAUSE Statement 


Syntax 
PAUSE [n] 


Purpose 


Suspends program execution until the RETURN key is pressed. 


Remarks 


nis either a character constant or a string of not more than five 
digits. 


The PAUSE statement suspends execution of the program, pend- 
ing an indication that it is to continue. The argument n, if present, 
is displayed on the screen as a prompt requesting input from the 
keyboard. If n is not present, the following message is displayed 
on the screen: 


PAUSE. Please press return to continue. 
After you press the RETURN key, program execution resumes as if 
a CONTINUE statement were executed. 
Example 


C EXAMPLE OF A PAUSE STATEMENT 

IF (IWARN .EQ. 0) GOTO 300 

PAUSE ’WARNING: IWARN IS NONZERO’ 
300 CONTINUE 
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3.2.33 The PROGRAM Statement 


Syntax 
PROGRAM program-name 


Purpose 


Identifies the program unit as a main program and gives ita 
name. 


Remarks 


program-name is the name you have given to your main program. 
The program name is a global name. Therefore, it cannot be the 
same as that of another external procedure or common block. (Itis 
also a local name to the main program and must not conflict with 
any local name in the main program.) The PROGRAM statement 
may only appear as the first statement of a main program. 


Ifthe main program does not havea program statement, it will be 
assigned the name MAIN. The name MAIN then cannot be used 
to name any other entity. 


Example 


PROGRAM GAUSS 
REAL COEF (10,10), CONST (10) 


END 
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3.2.34 The READ Statement 


Syntax 


READ (unit-spec [, format-spec] 
[, IOSTAT=iocheck] [, REC=rec-num|] 
[, END=slabell][, ERR=slabel2)}) iolist 


Purpose 


Transfers data from the file associated with uwnit-spec to the items 
in the Jolist, assuming that no end of file or error occurs. 


Remarks 


Ifthe READ is internal, the character variable or character array 
element specified by unit-spec is the source of the input; if the 
READ is not internal, the source of the input is the external unit. 


unit-spec is a required unit specifier, which must appear as the 
first argument. 


format-spec is a format specifier. It is required for formatted read 
as the second argument; it must not appear for unformatted read. 


Other arguments, if present, can appear in any order. 


tocheck is an integer variable or integer array element that 
becomes defined as (1) a zeroif no error or end of file conditions are 
encountered or (2) a processor-dependent positive integer value if 
an error condition is encountered or (3) a processor-dependent 
negative integer value if an end of file is encountered and no error 
condition exists. (See Section 3.1.7, “I/O Statements,” for details 
on error handling). 


rec-numis arecord number, specified for direct access files only; if 
rec-num is given for other than direct files, an error results. The 
record number is a positive integer expression and positions to the 
record number rec-num (the first record in the file has record 
number 1) before the transfer of data begins. If this argument is 
omitted for a direct access file, reading continues sequentially 
from the current position in the file. 


Statements 


slabell is an optional statement label in the same program unit as 
the READ statement. If this argument is omitted, reading past 
the end of the file results in a runtime error. If it is present, 
encountering an end of file condition transfers control to the 
executable statement specified. 


slabel2 is an optional statement label in the same program unit as 
the READ statement. If this argument is omitted, I/O errors 
result in runtime errors. If itis present, I/O errors transfer control 
to the executable statement specified. (See Section 3.1.7, “I/O 
Statements,” for details on error handling). 


iolist specifies the entities into which values are transferred from 
the file. An iolist may be empty, but ordinarily consists of input 
entities and implied DO lists, separated by commas. 


See Section 4.3.1, “Elements of I/O Statements,” for more infor- 
mation about unit specifiers and other elements of I/O statements. 


If the file has not been opened by an OPEN statement, an implicit 
OPEN operation is performed. This operation is equivalent to the 
following statement: 


OPEN (unit-spec,FILE=’ ’*},STATUS=OLD’, 
+ACCESS='SEQUENTIAL’,FORM='format’) 


format is FORMATTED’ if the READ statement is formatted 
and "UNFORMATTED if the READ statement is unformatted. 
See Section 3.2.28, “The OPEN Statement,” for a description of 
the effect of the FILE= parameter. 


Example 


C SET UP A TWO DIMENSIONAL ARRAY. 
DIMENSION 1IA(10,20) 


C READ IN THE BOUNDS FOR THE ARRAY. 
C THESE BOUNDS SHOULD BE LESS THAN OR 
C EQUAL TO 10 AND 20 RESPECTIVELY. 
C THEN READ IN THE ARRAY IN NESTED 
C IMPLIED DO LISTS WITH INPUT FORMAT OF 
C 8 COLUMNS OF WIDTH 5 EACH. 
READ (3,990)IL,JL,((IA(I,J),J=1,JL), 
+1=1,IL) 
990 FORMAT (215/,(815)) 
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3.2.35 The RETURN Statement 


Syntax 
RETURN [ordinal] 


Purpose 


Returns control to the calling program unit and, where the actual 
arguments of the CALL statement contain alternate return speci- 
fiers, can return control to a specific statement. 


Remarks 
RETURN can only appear in a function or subroutine. 


Execution of a RETURN statement terminates execution of the 
enclosing subroutine or function. If the RETURN statement is in 
a function, the function’s value is equal to the current value of the 
variable with the same name as the function. 


Execution of an END statement in a function or subroutine is 
equivalent to execution of a RETURN statement. Thus, either a 
RETURN or an END statement, but not both, is required to 
terminate a function or subroutine. 


[ordinal] defines an ordinal position for an alternate return label 


in the formal argument list for the subroutine. (See the SUB- 
ROUTINE statement). 
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Example 


C EXAMPLE OF RETURN STATEMENT 
C THIS SUBROUTINE LOOPS UNTIL 
C YOU TYPE “Y” 
SUBROUTINE LOOP 
CHARACTER IN 


C 

10 READ(+,(A1)’) IN 
IF (IN .EQ. 'Y’) RETURN 
GOTO 10 

C RETURN IMPLIED 
END 


The following code fragment is an example of the alternate return 
feature: 


01 CALL BARi(,*10,J,*20, *30) 
WRITE («,*) ‘normal return’ 
GO TO 40 
WRITE 


SUBROUTINE BAR (I,*+,J,*,*) 
IF (I.LEQ.10) RETURN 1 

IF (1.EQ.20) RETURN 2 

IF (I.EQ.30) RETURN 3 
RETURN 


In this example of a subroutine with alternate return labels fol- 
lowing the RETURN statement, RETURN 2 specifies a return to 
the second alternate return label in the list, RETURN 8 to the 
third and so on. 
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3.2.36 The REWIND Statement 


Syntax 

REWIND uwnit-spec 

Purpose 

Repositions to its initial point the file associated with the specified 
unit. 

Remarks 

unit-spec is a required external unit specifier. See Section 4.3.1, 


“Elements of I/O Statements,” for more information about unit 
specifiers and other elements of I/O statements. 


Example 


INTEGER A(80) 
WRITE (7,'(8011)’) A 
REWIND 7 


READ (7, ‘(80I1)’) A 
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3.2.37 TheSAVE Statement 


Syntax 


SAVE cnamel [, cname2]... 


Purpose 

Causes variables to retain their values across invocations of the 
procedure in which they are defined. 

Remarks 

cname is the name of a common block (enclosed in slashes), a 
variable or an array. After being saved, the named variables and 
all variables in the named common block have defined values if 
the current procedure is subsequently re-entered. 


Example 


C EXAMPLE OF SAVE STATEMENT 
SAVE /MYCOM/, MYVAR 
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3.2.38 The Statement Function Statement 


Syntax 


fname ([farg [, farg]..]) = expr 


Purpose 


Defines a function in one statement. 


Remarks 

fname is the name of the statement function. 
farg is a formal argument name. 

expr 1s any expression. 


The statement function statement is similar in form to the 
assignment statement. A statement function statement can only 
appear after the specification statements and before any executa- 
ble statements in the program unit in which it appears. 


A statement function is not an executable statement, since it is 
not executed in order as the first statement in its particular pro- 
gram unit. Rather, the body of a statement function serves to 
define the meaning of the statement function. Like any other 
function, a statement function is executed by a function reference 
in an expression. 


The type of the expression must be assignment compatible with 
the type of the statement function name. The list of formal argu- 
ment names serves to define the number and type of arguments to 
the statement function. The scope of formal argument names is 
the statement function. Therefore, formal argument names can 
be re-used as other user-defined names in the rest of the program 
unit enclosing the statement function definition. 
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The name of the statement function, however, is local to the 
enclosing program unit; it must not be used otherwise, except as 
the name of acommon block or as the name of a formal argument 
to another statement function. In the latter case the type of all 
such uses must be the same. 


If a formal argument name is the same as another local name, 
then a reference to that name within the statement function 
defining it always refers to the formal argument, never to the 
other usage. 


Within the expression expr, references to variables, formal argu- 
ments, other functions, array elements, and constants are permit- 
ted. Statement function references, however, must refer to state- 
ment functions defined prior to the statement function in which 
they appear. Statement functions cannot be called recursively, 
either directly or indirectly. 


A statement function can only be referenced in the program unit 
in which it is defined. The name of a statement function cannot 
appear in any specification statement, except in a type statement 
(which may not define that name as an array) and ina COMMON 
statement (as the name of acommon block). A statement function 
cannot be of type CHARACTER. 


Example 
C EXAMPLE OF STATEMENT FUNCTION STATEMENT 


DIMENSION X(10) 
ADD(A, B) =A+B 


iS 
DO 1, I=1, 10 
X(l) = ADD(Y, Z) 
1 CONTINUE 
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3.2.39 The STOP Statement 


Syntax 
STOP [n] 


Purpose 


Terminates the program. 


Remarks 


n is either a character constant or a string of not more than five 
digits. 


The argument, n, if present, is displayed on the screen when the 
program terminates. If n is not present, the following message is 
displayed: 


STOP - Program terminated. 


Example 


C EXAMPLE OF STOP STATEMENT 
IF (IERROR .EQ. 0) GOTO 200 
STOP ’ERROR DETECTED’ 
200 CONTINUE 
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3.2.40 The SUBROUTINE Statement 


Syntax 


SUBROUTINE subroutine-name [([farg 
[, farg]...] )] 


Purpose 


Identifies a program unit as a subroutine, gives it a name, and 
identifies the formal arguments to that subroutine. These argu- 
ments may include alternate return labels (+). 


An alternate return label identifies an ordinal position [e] among 
the other alternate return labels in the formal argument list. 


For example: 


CALL BAR(I,*10,J, *20,*30) 


SUBROUTINE BAR (I,*,J,*,*) 
IF (|.EQ.10) RETURN 1 

IF (|.EQ.20) RETURN 2 

IF (1.EQ.30) RETURN 3 
RETURN 


RETURN 2 references the second alternate return label(*) in 
SUBROUTINE BAR. The second alternate return label serves as 
the symbol for the actual argument *20 (with its alternate return 
specifier) in the CALL statement. 


Remarks 


subroutine-name is the user-defined, global, external name of the 
subroutine. 


farg is the user-defined name of a formal argument, also known as 


a dummy argument. The formal argument may include the alter- 
nate return label (+). 
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A subroutine begins with aSUBROUTINE statement and ends 
with the next following END statement. It can contain any kind 
of statement other than a PROGRAM statement, BLOCK DATA 
statement, SUBROUTINE statement, or a FUNCTION state- 
ment. 


The list of argument names defines the number and, with any 
subsequent IMPLICIT, EXTERNAL, type, or DIMENSION 
statements, the type of arguments to that subroutine. Argument 
names cannot appear in COMMON, DATA, EQUIVALENCE, or 
INTRINSIC statements. 


The actual arguments in the CALL statement that reference a 
subroutine must agree with the corresponding forma] arguments 
in theSUBROUTINE statement, in order, in number, and in type 
or kind. 


The compiler will check for correspondence if the formal argu- 
ments are known. To be known, the SUBROUTINE statement 
that defines the formal arguments must precede the CALL state- 
ment in the current compilation. Rules for the correspondence of 
formal and actual arguments are described in Section 3.2.5, “The 
CALL Statement.” 


Example 


SUBROUTINE GETNUM (NUM,UNIT) 
INTEGER NUM, UNIT 

10 READ (UNIT,‘(110)’, ERR=10) NUM 
RETURN 
END 
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3.2.41 The Type Statement 


Syntax 


type unamel [, uname?2]... 


Purpose 


Specifies the type of user-defined names. 


Remarks 
type is one of the following data type specifiers: 


INTEGER 
INTEGER<«2 
INTEGER#4 
REAL 

REAL#*4 
REAL#8 
DOUBLE PRECISION 
COMPLEX 
COMPLEX#8 
COMPLEX+#16 
LOGICAL 
LOGICAL#2 
LOGICAL+#4 
CHARACTER 
CHARACTER#n 


uname is the symbolic name of a variable, array, or statement 
function; or a function subprogram or an array declarator. A type 
statement can confirm or override the implicit type of aname. A 
type statement can also specify dimension information. 


n(asin CHARACTER<¢n ) may be in the following range (1 <=n 
<= 127). 


A user name for a variable, array, external function, or statement 
function may appear in a type statement. Such an appearance 
defines the type of that name for the entire program unit. Withina 
program unit, a name can have its type explicitly specified by a 
type statement only once. 
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A type statement may also confirm the type of an intrinsic func- 
tion, but it is not required. The name of a subroutine or main 
program cannot appear in a type statement. 


The following rules apply to a type statement: 


1. Atypestatement must precede all executable statements. 


2. Thedata type of asymbolic name can be declared explic- 
itly only once. 


A type statement cannot be labeled. 


A type statement can be used to declare an array by 
appending a dimension declarator to an array name. 


A symbolic name can be followed by a data type length specifier 
of the form */ength, where length is one of the acceptable lengths 
for the data type being declared. Such a specification overrides the 
length attribute that the statement implies and assigns a new 
length to the specified item. If both a data type length specifier 
and an array declarator are included, the data type length speci- 
fier goes last. 


Example 


C EXAMPLE OF TYPE STATEMENTS 
INTEGER COUNT, MATRIX(4,4), SUM 
REAL MAN,IABS 
LOGICAL SWITCH 


INTEGER*2 Q, M12+4, IVEC(10)*4 
REAL+*4 WX1, WX3+4, WX5, WX6«4 


CHARACTER NAME+10, CITY«80, CH 
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3.2.42 The WRITE Statement 


Syntax 


WRITE (unit-spec [, format-spec| 
[, IOSTAT=1ocheck][, ERR=slabel] 
[, REC=rec-num)) tolist 


Purpose 


Transfers data from the iolist items to the file associated with the 
specified unit. 


Remarks 


unit-spec is a required unit specifier and must appear as the first 
argument. See Section 4.3.1, “Elements of I/O Statements,” for 
more information about unit specifiers and other elements of I/O 
statements. 


format-spec is a format specifier. It is required as the second 
argument for a formatted WRITE; it must not appear for an 
unformatted WRITE. 


The remaining arguments, if present, may appear in any order. 


tocheck is an integer variable or integer array element that 
becomes defined as (1) a zero if no error or end of file conditions are 
encountered or (2) a processor-dependent positive integer value if 
an error condition is encountered or (3) a processor-dependent 
negative integer value if an end of file is encountered and no error 
condition exists. (See Section 3.1.7, “I/O Statements,” for more 
information on error-handling.) 


slabelis an optional statement label. Ifitis not present, I/O errors 


result in runtime errors. If itis present, I/O errors transfer control 
to the executable statement specified. 
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rec-num is a record number, specified for direct access files only 
(otherwise, an error results). It is a positive integer expression, 
specifying the number of the record to be written. The first record 
in the fileis record number 1. If the record number is omitted fora 
direct access file, writing continues from the current position in 
the file. 


tolist specifies the entities whose values are transferred by the 
WRITE statement. An iolist may be empty, but ordinarily con- 
sists of output entities and implied DO lists, separated by 
commas. 


If the WRITE is internal, the character variable or character 
array element specified as the unit is the destination of the output; 
otherwise, the external unit is the destination. 


If the file has not been opened by an OPEN statement, an implicit 
open operation is performed. The OPEN operation is equivalent 
to the following statement: 


OPEN (unit-spec, FILE='’, STATUS="NEW’, 
+ACCESS='SEQUENTIAL’, FORM=format) 


format is FORMATTED for a formatted WRITE statement and 
UNFORMATTED for an unformatted WRITE statement. See 
Section 3.2.30, “The OPEN Statement,” for a description of the 
effect of the FILE= argument. 


Example 


C Display message: “One= 1,Two= 2,Three= 3” 
C on the screen, not doing 
C things in the simplest way! 
WRITE(*,980)’ One=’,1,1+1,’'ee=",+(1+1+1) 
980 FORMAT (A,|2,’, Two=’,1X,11,', Thr’,A,12) 
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This chapter supplements the presentation of the I/O statements 
in Chapter 3, “Statements.” It describes the elements of the MS- 
FORTRAN file system, defines the basic concepts of I/O records 
and I/O units, and discusses the various kinds of file access 
available. It further relates these definitions to how various tasks 
are accomplished using the most common forms of files and I/O 
statements. The chapter includes a complete program illustrating 
the I/O statements and discusses general I/O system limitations. 


4.1 Records 


The building block of the MS-FORTRAN file system is the record. 
A record is a sequence of characters or values. There are three 
kinds of records: formatted, unformatted, and endfile. 


1. Formatted 


A formatted record is a sequence of characters terminated 
by a system-dependent end-of-line marker. Formatted 
records are interpreted in a manner consistent with the 
way most operating systems and editors interpret lines. 


2. Unformatted 


An unformatted record is a sequence of values in asystem 
dependent form. Unformatted files contain a structure 
that defines the physical record. Binary files contain only 
the values written to them, and the record structure can- 
not, in general, be determined from this information. 


3. Endfile 


The MS-FORTRAN file system simulates a virtual end- 
file record after the last record in a file. The way end of file 
is represented depends in part on the operating system. 
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4.2 Files 


A file is a sequence of records. Files are either external or internal. 


1. External 


An external file is either a file on a device or the device 
itself. 


2. Internal 


An internal file is a character variable or character array 
element that serves as the source or destination of some 
formatted I/O operation. 


For the remainder of this manual, both internal MS-FORTRAN 
files and the files known to the operating system are usually 
referred to simply as “files,” with context determining meaning. 
The OPEN statement provides the link between the two notions of 
files; in most cases, the ambiguity disappears after opening a file, 
when the two notions coincide. 


4.2.1 File Properties 
A FORTRAN file has the following properties: 


name 
position 


structure (formatted, unformatted, or binary) 


aa ca aa 


access method (sequential or direct) 


4.2.1.1 Filename 


A file can have a name. If present, a name is a character string 
identical to the name by which the file is known to the operating 
system. Filenaming conventions are determined by your operat- 
ing system. 
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4.2.1.2 File Position 


The position of a file is usually set by the previous I/O operation. 
A file has an initial point, terminal point, current record, preced- 
ing record, and next record. 


It is possible to be between records in a file, in which case the next 
record is the successor to the previous record, and there is no 
current record. 


Opening a sequential file positions the file at its beginning. If the 
next I/O operation isa WRITE, all old data in the file is discarded. 
The file position after sequential WRITEs is at the end of the file, 
but not beyond the endfile record. 


Executing the ENDFILE statement positions the file beyond the 
endfile record, as does a READ statement executed at the end of 
the file. You can detect the endfile condition by using the END= 
option in a READ statement. 


4.2.1.3 File Structure 


An external file may be opened as a formatted, unformatted, or 
binary file. All internal files are formatted. 
1. Formatted 
Files consisting entirely of formatted records. 
2. Unformatted 
Files consisting entirely of unformatted records. 
3. Binary 


Sequences of bytes with no internal structure. 
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4.2.1.4 File Access Method 


An external file is opened as either a sequential file or a direct 
access file. 


1. Sequential 


Files that contain records whose order is determined by 
the order in which the records were written (the normal 
sequential order). These files must not be read or written 
using the REC= option, which specifies a position for 
direct access I/O. 


2. Direct 


Files whose records can be read or written in any order 
(they are random access files). Records are numbered 
sequentially, with the first record numbered 1. All records 
have the same length, specified when the file is opened; 
each record has a unique record number, specified when 
the record is written. ; 


In a direct access file, it is possible to write records out of order 
(e.g., 9, 5, and 11 in that order), without writing the records in 
between. It is not possible to delete a record once written; how- 
ever, a record can be overwritten with a new value. 


Reading a record that has not been written from a direct access 
file will result in an error. Direct access files must reside on disk. 
The operating system attempts to extend direct access files if a 
record is written beyond the old terminating file boundary; the 
success of this operation depends on the existence of room on the 
physical device. 


4.2.2 Special Properties of Internal Files 


An internal file is a character variable or character array element. 
The file has exactly one record, which is of the same length as the 
character variable or character array element. 


If less than the entire record is written, the remaining portion of 
the record is filled with blanks. The file position is always at the 
beginning of the file prior to execution of the I/O statement. 
Internal files permit only formatted, sequential I/O; and only the 
I/O statements READ and WRITE may specify an internal file. 
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Internal files provide a mechanism for using the formatting 
capabilities of the I/O system to convert values to and from their 
external character representations and their MS-FORTRAN 
internal memory representations. That is, reading from an inter- 
nal file converts the character values into numeric, logical, or 
character values; writing to an internal file converts values into 
their (external) character representation. The backslash edit de- 
scriptor (\) may not be used with internal files. 


4.2.3 Units 


A unit is a means of referring to a file. A unit specified in an I/O 
statement is either an external unit specifier or an internal unit 
specifier. 


1. External unit specifier 


An external unit specifier is either an integer expression 
or the character * (which stands for the screen, for writing, 
and the keyboard, for reading). 


In most cases, an external unit specifier value is bound to 
a physical device (or files resident on the device) by name, 
using the OPEN statement. Once this binding of a unit to 
asystem filename occurs, MS-FORTRAN I/O statements 
specify the unit number to refer to the associated external 
entity. Once the file is opened, the external unit specifier 
value is uniquely associated with a particular external 
entity until an explicit CLOSE operation occurs or until 
the program terminates. 


The only exception to these binding rules is that the unit 
value zero is initially associated with the keyboard for 
reading and the screen for writing and no explicit OPEN 
statement is necessary. The MS-FORTRAN file system 
interprets the character * as unit zero. 


2. Internal unit specifier 


An internal unit specifier is a character variable or char- 
acter array element that directly specifies an internal file. 


See Section 4.3.1, “Elements of I/O Statements,” for a discussion 
of how these unit specifiers are used. 
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4.2.4 Commonly Used File Structures 


Numerous combinations of file structures are possible in MS- 
FORTRAN. However, two kinds of files suffice for most appli- 
cations: 


1. * files 


2. named, external, sequential, formatted files 


* represents the keyboard and screen, that is, a sequential, for- 
matted file, also known as unit zero. When reading from unit zero, 
you must enter an entire line; the normal operating system con- 
ventions for correcting typing mistakes apply. 


An external file can be bound to a system name by any one of the 
following methods: 


1. Ifthe fileis explicitly opened, the name can be specified in 
the OPEN statement. 


2. Ifthe fileis explicitly opened and the nameis specified as 
all blanks, the name is read from the command line (if 
available). Ifthe command line is unavailable or contains 
no name, the user will usually be prompted for the name. 


3. If the file is implicitly opened (with a READ or WRITE 
statement) the name is obtained as in method 2, described 
in the preceding paragraph. 


4. Ifthe file is explicitly opened and no name is specified in 
the OPEN statement, the file is considered a scratch or 
temporary file, and an implementation-dependent name 
is assumed. 


The following sample program uses * files and named, external, 
sequential, formatted files for reading and writing. The I/O 
statements themselves are explained in general in Section 4.3, 
“I/O Statements.” For details of each individual I/O statement, 
see the appropriate entries in Section 3.2, “Statement Directory.” 
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C COPY A FILE WITH THREE COLUMNS OF INTEGERS, 
C EACH 7 COLUMNS WIDE, FROM A FILE WHOSE NAME 
CIS ENTERED BY THE USER TO ANOTHER FILE NAMED 
C OUT.TXT, REVERSING THE POSITIONS OF THE 
C FIRST AND SECOND COLUMNS. 

PROGRAM COLSWP 

CHARACTER*64 FNAME 


C PROMPT TO THE SCREEN BY WRITING TO *. 
WRITE(*,900) 
900 FORMAT(' INPUT FILE NAME -’\) 


C READ THE FILE NAME FROM THE KEYBOARD BY 
C READING FROM *. 
READ(*,910) FNAME 

910 FORMAT (A) 


C USE UNIT 3 FOR INPUT; ANY UNIT NUMBER EXCEPT 
COWILL DO. 
OPEN(3,FILE=FNAME) 


C USE UNIT 4 FOR OUTPUT; ANY UNIT NUMBER EXCEPT 
COAND 3 WILL DO. 
OPEN(4,FILE="OUT.TXT’ SSTATUS='NEW’) 


C READ AND WRITE UNTIL END OF FILE. 


100 READ(3,920,END=200)I,J,K 
WRITE(4,920)J,1,K 

920 FORMAT (317) 
GOTO 100 

200 WRITE(*,910)’Done’ 
END 


4.2.5 Other File Structures 


The less commonly used file structures are appropriate for certain 
classes of applications. A very general indication of their intended 
uses follows: 


1. Ifrandom access I/O is needed, as would probably be the 
case in a data base, direct access files are necessary. 


2. If the data is to be both written and reread by MS- 
FORTRAN, unformatted files are perhaps more efficient 
in terms of speed, but possibly less efficient in terms of 
disk space. The combination of direct and unformatted 
files is ideal for a data base created, maintained, and 
accessed exclusively by MS-FORTRAN. 
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3. Ifthedata must be transferred without any system inter- 
pretation, especially if all 256 possible byte values are to 
be transferred, unformatted I/O is necessary. 


One use of unformatted I/O is in the control of a device 
that has a single-byte, binary interface. Formatted I/O 
would, in this example, interpret certain characters, such 
as the ASCII representation for RETURN, and fail to 
pass them through to the program unaltered. 


The number of bytes written for an integer constant is 
determined by the $STORAGE metacommanad (for details, 
see Section 6.2.12, “The $STORAGE Metacommand.”) 


4, Ifthedatais to be transferred as in the third use described 
in this list, but will be read by non-FORTRAN programs, 
the BINARY format is recommended. Unformatted files 
are blocked internally, and consequently the non- 
FORTRAN program must be compatible with this format 
to interpret the data correctly. BINARY files contain only 
the data written to them. Backspacing over records is not 
possible and incomplete records cannot be read from 
them. 


4.2.6 OLD and NEW Files 


A file opened in MS-FORTRAN is either OLD or NEW, but 
“opened for reading” is not distinguishable from “opened for 
writing.” Therefore, you can open OLD (existing) files and write to 
them, with the effect of overwriting them. 


Similarly, you can alternately WRITE and READ tothe same file 
(providing that you avoid reading beyond the end of the file, or 
reading unwritten records in a direct file). A WRITE to a sequen- 
tial file effectively deletes any records that existed beyond the 
newly written record. 


When a device such as the keyboard or printer is opened as a file, it 
normally makes no difference whether it is opened as OLD or 
NEW. With disk files, however, opening a file as NEW creates a 
new file: 


1. Ifaprevious file existed with the same name, the previous 
file is deleted. 
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If the new file is closed with STATUS=’KEEP’ or if the 
program terminates without doing a CLOSE operation on 
that file, a permanent file is created with the name given 
when the file was opened. 


4.2.7 Limitations 


Certain limitations on the use of the MS-FORTRAN I/O system 
are described briefly in the following list: 


iL 


Direct files/direct device association 


There are two kinds of devices: sequential and direct. The 
files associated with sequential devices are streams of 
characters; except for reading and writing, no explicit 
motion is allowed. The keyboard, screen, and printer are 
all sequential devices. 


Direct devices, such as disks, have the additional task of 
seeking a specific location. Direct devices can be accessed 
either sequentially or randomly, and thus can support 
direct files. The MS-FORTRAN I/O system does not 
allow direct files on sequential devices. 


BACKSPACE/BINARY sequential file association 


There is no indication in a binary sequential file of record 
boundaries; therefore,a BACKSPACE operation on such 
files is defined as backing up by one byte. Direct files 
contain records of fixed, specified length, so it is possible 
to backspace by records on direct unformatted files. 


Partial READ/BINARY file 


The data read from a binary file must correspond in 
length to the data written. Unformatted sequential files 
differ, in that an internal structure allows part or none ofa 
record to be read (the unread part is skipped). 


Side effects of functions called in I/O statements 


During execution of any I/O statement, evaluation of an 
expression may cause a function to be called. That func- 
tion call must not cause any I/O statement to be executed. 
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4.3 I/O Statements 


This section discusses the elements of I/O statements in general. 
For specific details on each of the seven I/O statements OPEN, 
CLOSE, READ, WRITE, BACKSPACE, ENDFILE, and RE- 
WIND, see the appropriate entries in Section 3.2, “Statement 
Directory,” in the previous chapter. 


In addition to these I/O statements, there is an I/O intrinsic 
function, EOF(unit-spec), which is described in Section 5.3.2, 
“Intrinsic Functions.” EOF returns a logical value that indicates 
whether there is any data remaining in the file after the current 
position. 


4.3.1 Elements of I/O Statements 

The various I/O statements take certain arguments that specify 
sources and destinations of data transfer as well as other facets of 
the I/O operation. The elements described in this subsection are 


the following: 


1. unit specifier (unit-spec) 
2. format specifier (format-spec) 


3. input/output list (olist) 


4.3.1.1 The Unit Specifier 


The unit specifier, wnit-spec, can take one of the following forms in 
an I/O statement: 


1. The * specifier 
WRITE (*,*) Begin output.’ 


The first (*) in this example refers to the keyboard or 
screen and specifies that unit. 
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2. Integer expression 
WRITE (10,*) File 10:’ 


The integer (10) refers to an external file associated with 
unit 10. An (*) indicates a unit number zero. Unit specifier 
numbers in the range -32767 to 32767 are accepted. 


3. Name ofa character variable or character array element 


CHARACTER*10 STRING 
WRITE (STRING, *(110)’) IVAL 


The character variable, STRING, refers to an internal file. 


See Section 4.2.3, “Units,” for a discussion of the difference 
between external and internal unit specifiers. 


4.3.1.2 Format Specifiers In I/O Statements 


The format specifier, format-spec, can take one of the following 
forms in an I/O statement: 


1. FORMAT Statement label 


WRITE (*,990) |,J,K 
990 FORMAT (1X,215,13) 


The statement label 990 refers to the FORMAT statement 
at 990. 


2. Integer variable name 


ASSIGN 990 TO IFMT 
990 FORMAT(1X,215,13) 
WRITE(*,IFMT) I,J,K 


In the WRITE statement, the integer variable name 
(IFMT) refers to FORMAT statement label 990 as as- 
signed just before the FORMAT statement. For further 
information, see Section 3.2.1, “The ASSIGN Statement.” 


3. Character expression 
WRITE(*,’(1X,215,13)’)1,J,K 


The value of the character expression is the format for the 
data transfer. 
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4. Character variable 


CHARACTER*11 FMTCH 
FMTCH =’(1X,215,13) 
WRITE(*,FMTCH)I,J,K 


In this example, the WRITE statement uses the contents 
of the character variable FMTCH as the format specifier 
for data transfer. 


* 


WRITE(*,*) I,J,K 


In this statement, the second asterisk indicates a list- 
directed I/O transfer. For more information, see Section 
4.5, “List-Directed I/O.” 


4.3.1.3 Input/Output List 


The input/output list, iolist, specifies the entities whose values are 
transferred by READ and WRITE statements. An iolist may be 
empty, but ordinarily consists of input or output entities and 
implied DO lists, separated by commas. 


An input entity can be specified in the iolist of a READ statement 
and an output entity in the iolist of a WRITE statement. 


a 
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Input entities 


An input entity is either a variable name, an array ele- 
ment name, or an array name. An array name specifies 
all of the elements of the array in memory sequence order. 


Output entities 


In addition to being any of the items listed as input enti- 
ties, an output entity can be any other expression not 
beginning with the left parenthesis character “(’”’. (The left 
parenthesis distinguishes implied DO lists from expres- 
sions.) 
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To distinguish it from an implied DO list, the following 
expression 


(A+B)*(C+D) 
can be written as: 
+(A+B)*(C+D) 


Implied DO lists 


Implied DO lists can be specified as items in the I/O list of 
READ and WRITE statements and have the following 
format: 


(iolist, variable = expr1, 
expr2[, expr3]) 


iolist is defined the same as for elements of I/O state- 
ments (including nested implied DO lists). 


variable, expr1, expr2, and expr3 are the same as defined 
for the DO statement. That is, variable is an integer vari- 
able, while expr1, expr2, and expr3 are integer expressions. 


Ina READ statement, the DO variable (or an associated 
entity) must not appear as an input list item in the 
embedded iolist, but may have been read in the same 
READ statement before the implied DO list. The em- 
bedded iolist is effectively repeated for each iteration of 
variable with appropriate substitution of values for the 
DO variable. 


In the case of nested implied DO loops, the innermost 
(most deeply nested) loop is always executed first. 


4.3.2 Carriage Control 


The first characters of records written to files are treated as other 
characters in the record. However, first characters in records 
transferred to unit 0 or *, or to the files PRN, LPT1, or CON, are 
not printed. These characters are not interpreted as carriage con- 
trol characters. The MS-FORTRAN I/O system recognizes cer- 
tain characters as carriage control characters. These characters 
and their effects when printed are shown in Table 4.1. 


143 


Microsoft FORTRAN Reference Manual 


Table 4.1 


Carriage Control Characters 


Character Effect 

space Advances one line. 

0 Advances two lines. 

1 Advances to top of next page (ignored by the 
console). 

+ (plus) Does not advance (allows overprinting). 


Any character other than those listed in the preceding table is 
treated as a space and deleted from the print line. If you acci- 
dentally omit the carriage control character, the first character of 
the record is not printed. 


4.4 Formatted I/O 


Ifa READ or WRITE statement specifies a format, the I/O state- 
ment is considered a formatted, rather than an unformatted, I/O 
statement (see Section 4.3.1, “Elements in I/O Statements,” for 
more information on format specification.) 


The following five examples are all valid and equivalent means of 
specifying a format in an I/O statement and are a review of the 
format specifiers listed in Section 4.3.1. 


(1) WRITE (+,990) I,J,K 
990 FORMAT (1X,215,13) 
(2) ASSIGN 990 TO IFMT 
990 FORMAT (1X,215,13) 
WRITE(+,IFMT) I,J,K 
(3) WRITE(+,"(1X,215,13)’)1,U,K 
(4) CHARACTER*11 FMTCH 


FMTCH = ’(1X,215,13)’ 
WRITE(*,FMTCH)I,J,K 


(5) WRITE(+,*) I,J,K 
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The format specification must begin with a left parenthesis char- 
acter and end with a matching right parenthesis character. The 
leading left parenthesis can be preceded by initial blank charac- 
ters. Characters beyond the matching right parenthesis are 
ignored. 


See Section 4.4.2, “Edit Descriptors”, and Section 4.5, “List- 
Directed I/O”, for more details on format editing for data transfer. 


4.4.1 Interaction Between Format and I/O List 


If an zolist contains at least one item, at least one repeatable edit 
descriptor must exist in the format specification. In particular, the 
empty edit specification, ( ), can be used only if no items are 
specified in the /olist (in which case a WRITE writes a zero length 
record and a READ skips to the next record). 


Each item in the /olist is associated with a repeatable edit descrip- 
tor during the I/O statement execution. In contrast, the remain- 
ing format control items interact directly with the record and do 
not become associated with items in the iolist. 


Note 


Two repeatable edit descriptors are required in the FORMAT 
statement or format descriptor for each COMPLEX data item 
in the tolist. 


The items in a format specification are interpreted from left to 
right. Repeatable edit descriptors act as if they were present r 
times (if omitted, ris treated as a repeat factor of one). A format 
specification itself can have a repeat factor, as in: 


10(5F 10.4, 2(3x,513)) 
During the formatted I/O process, the “format controller’ scans 
and processes the format items as described in the previous para- 


graph. When a repeatable edit descriptor is encountered, one of 
the following occurs: 
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1. Acorresponding item appears in the iolist, in which case 
the item and the edit descriptor are associated and I/O of 
that item proceeds under format control of the edit 
descriptor. 


2. Nocorresponding item appears in the iolist, in which case 
the format controller terminates I/O. Thus, for the follow- 
ing statements: 


I=5 
WRITE (+,10) | 
10 FORMAT (1X,'l=',15,'J=’,15) 


the output would look like this: 
|= 5J= 


If the format controller encounters the matching final right paren- 
thesis of the format specification, or a colon (:) edit descriptor, 
and if there are no further items in the iolist, the format controller 
terminates I/O. 


If, however, there are further items in the iolist, the file is posi- 
tioned at the beginning of the next record and the format con- 
troller continues by rescanning the format, starting at the begin- 
ning of the format specification terminated by the last preceding 
right parenthesis. 


If there is no such preceding right parenthesis, the format con- 
troller rescans the format from the beginning. Within the portion 
of the format rescanned, there must be at least one repeatable edit 
descriptor. 


If the rescan of the format specification begins with a repeated 
nested format specification, the repeat factor indicates the number 
of times to repeat that nested format specification. The rescan 
does not change the previously set scale factor or the BN or BZ 
blank control in effect. 


When the format controller terminates, the remaining characters 
of an input record are skipped or an end-of-record is written on 
output. An exception to this occurs when the backslash edit de- 
scriptor (\) is used. 
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4.4.2. Edit Descriptors for 


the FORMAT Statement 


Edit or format descriptors in FORTRAN specify the form of a 
record and control the editing between the characters in a record 
and the internal format of data. There are two types of edit 
descriptors: repeatable and nonrepeatable. Both are described in 
the following sections of this chapter. 


4.4.2.1 Nonrepeatable Edit Descriptors 


1. 


Apostrophe (’) editing (xxxx’) 


The apostrophe edit descriptor has the form of a character 
constant and causes the character constant to be trans- 
mitted to the output unit. Embedded blanks are signifi- 
cant; two adjacent apostrophes, i.e., single right quotation 
marks, must be used to represent a single apostrophe 
within a character constant. Apostrophe editing cannot 
be used for input (READ). For an example, see “Hollerith 
editing (H).” 


Hollerith editing (H) 


The nH edit descriptor transmits the next n characters, 
with blanks counted as significant, to the output unit. 
Hollerith editing cannot be used for input (READ). 


Examples of apostrophe and Hollerith editing: 


C EACH WRITE OUTPUTS CHARACTERS 
C BETWEEN THE SLASHES: /ABC'DEF/ 


C APOSTROPHE EDITING 
WRITE (+,970) 

970 FORMAT (’ ABC’”DEF’) 
WRITE (+,(” ABC”"DEF’)’) 


C SAME OUTPUT USING HOLLERITH EDITING 
WRITE (+,(8H ABC”DEF)’) 
WRITE (,960) 

960 FORMAT (8H ABC’DEF) 


The leading blank in each casein the preceding examples 


is a carriage control character to cause a line feed (car- 
riage return) on output. 
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3. Positional editing (Tc, TLc, TRce) 


The T, TL,and TR edit descriptors specify the position in 
the record to which or from which the next character will 
be transmitted. The position specified by a T edit descrip- 
tor may be in either direction from the current position. 
This allows a record to be processed more than once on 
input. On output, the character positions not specified by 
the T, TL, and TR edit descriptors are filled with blanks as 
if the record were initially filled with blanks. 


The Tc edit descriptor specifies that the transmission of 
the next character is to occur at the cth character position. 
The TRe edit descriptor specifies that the transmission of 
the next character is to occur at c characters forward from 
the current position. The TLe edit descriptor specifies 
that the transmission of the next character is to occur at c 
characters backward from the current position. 


Note 
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Ifthe current position is less than or equal to the value of c, 
TLe editing will cause transmission to or from position 
one of the current record. 


You may not use the T descriptors to reposition to the left 
once you have positioned beyond position 128 since the 
output data are held in a buffer of this size. 


Positional editing (X) 


On input (READ), the nX edit descriptor advances the file 
position n characters, skipping n characters. On output 
(WRITE), the nX edit descriptor writes n blanks. 


Optional plus editing (SP, SS and S) 


The SP, SS, and S edit descriptors can be used to control 
optional plus characters in numeric output fields. SP 
causes output of the plus sign in all subsequent positions 
that the processor recognizes as optional plus fields. SS 
causes plus sign suppression in all subsequent positions 
that the processor recognizes as optional plus fields. S 
restores the default for producing the optional plus sign. 
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6. Slash editing (/) 


The slash indicates the end of data transfer on the current 
record. On input, the file is positioned to the beginning of 
the next record. On output, an end-of-record is written, 
and the file is positioned to write on the beginning of the 
next record. 


7. Backslash editing (\) 


Normally when the format controller terminates, the end 
of data transmission on the current record occurs. If the 
last edit descriptor encountered by the format controller is 
a backslash (\), this automatic end-of-record is inhibited, 
allowing subsequent I/O statements to continue reading 
(or writing) from (or to) the same record. 


This mechanism is most commonly used to prompt to the 
screen and read a response from the same line, as in the 
following example: 


WRITE («,(A\)’) ‘Input an integer - ->’ 
READ (+,'(BN,|6)’) | 


The backslash edit descriptor does not inhibit the auto- 
matic end-of-record generated when reading from the * 
unit; input from the keyboard must always be terminated 
by the RETURN key. The backslash edit descriptor may 
not be used with internal files. 


8. Terminating format control (:) 


The colon (:) edit descriptor terminates format control if 
there are no more items in the iolist. This tool can be used 
to suppress output when some of the characters in the 
format do not have corresponding data in the tolist. 


9. Scale factor editing (P) 


The kP edit descriptor sets the scale factor for subsequent 
F and E edit descriptors until the next kP edit descriptor. 
At the start of each I/O statement, the scale factor is 
initialized to zero. The scale factor affects format editing 
in the following ways: 


a. Oninput, with F and E editing (providing that no 
explicit exponent exists in the field) and F output 
editing, the externally represented number equals 
the internally represented number multiplied by 
10**k, 
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b. On input, with F and E editing, the scale factor 
has no effect if there is an explicit exponent in the 
input field. 


c. On output, with E editing, the real part of the 
quantity is output multiplied by 10**k and the 
exponent is reduced by k (effectively altering the 
column position of the decimal point but not the 
value output). 


10. Blank interpretation (BN and BZ) 


These edit descriptors specify the interpretation of blanks 
in numeric input fields. The default, BZ, is set at the start 
of each I/O statement. This makes blanks, other than 
leading blanks, identical to zeros. If MS-FORTRAN pro- 
cesses a BN edit descriptor, however, blanks in subse- 
quent input fields are ignored unless, and until, a BZ edit 
descriptor is processed. 


The effect of ignoring blanks is to take all the nonblank 
characters in the input field and treat them as if they were 
right-justified in the field with the number of leading 
blanks equal to the number of ignored blanks. For 
instance, the following READ statement accepts the 
characters shown between the slashes as the value 123. 
RETURN indicates a carriage return or enter keystroke. 


READ(*,100) | 


100 FORMAT (BN,I6) 
/123 RETURN/ 
/123 456RETURN/ 
/ 123 RETURN/ 


BN editing will go into effect automatically when a 
READ is associated with a “short” record; “short” mean- 
ing that the total number of characters in the input record 
is fewer than the combined number of characters specti- 
fied by the format descriptors and iolist. The record is 
padded on the right with blanks to the required length. 
Thus, the following example would result in the value 123, 
rather than 12300. RETURN represents a carriage return or 
entry keystroke. 


READ (+,’(15)’) | 
/123RETURN/ 


The I/O System 


The BN edit descriptor, in conjunction with the infinite 
blank padding at the end of formatted records, makes 
interactive input very convenient. 


4.4.2.2 Repeatable Edit Descriptors 


The I, F, E, D, and G edit descriptors are used for I/O of numeric 
data. The following general rules apply to all numeric edit 
descriptors: 


ie 


On input, leading blanks are not significant. Other 
blanks are interpreted differently depending on the BN or 
BZ flag in effect, but fields that are all blank always 
become the value zero. Plus signs are optional. The blanks 
supplied by the file system to pad a record to the required 
size are also not significant. 


On input with F, E, D and G editing, an explicit decimal 
point appearing in the input field overrides the edit de- 
scriptor specification of the decimal point position. 


On output, the characters generated are right-justified in 
the field and padded by leading blanks, if necessary. 


On output, if the number of characters produced exceeds 
the field width or the exponent exceeds its specified width, 
the entire field is filled with asterisks. 


When reading with I, F, E, D, G or L edit descriptors, the 
input field may contain a comma, which is considered to 
terminate the field. Reading of the next field will start at 
the character following the comma. The missing charac- 
ters are not significant. For example, 


READ (+,'(315)’) I,J,K 
Pls BS ee Bocas 


will result in I=1, J=20 and K=3. 


Note 


Do not use this feature if you wish to rely on explicit field 
position editing (.e., using the T, TL or TR edit descriptors.) 
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Individual descriptions of the repeatable edit descriptors follow. 
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Integer editing (1) 


The edit descriptor Iw must be associated with an iolist 
item of type INTEGER. The field is w characters wide. On 
input, an optional sign may appear in the field. 


F real editing 


The edit descriptor Fw.d must be associated with an iolist 
item of type REAL or REAL+#8. The field is w characters 
wide, with a fractional part d digits wide. The input field 
begins with an optional sign followed by a string of digits 
which may contain an optional decimal point. If the 
decimal point is present, it overrides the d specified in the 
edit descriptor; otherwise, the nghtmost d digits of: the 
string are interpreted as following the decimal point (with 
leading blanks converted to zeros, if necessary). Following 
this is an optional exponent which is either: 


a. +(plus) or - (minus) followed by an integer, or 


b. E followed by zero or more blanks followed by an 
optional sign followed by an integer. 


The output field occupies w digits, d of which fall beyond 
the decimal point. The value output is controlled both by 
the iolist item and the current scale factor. The output 
value is rounded rather than truncated. 


E and D real editing 


The E edit descriptor takes one of the forms Ew.d or 
Ew.dEe. The D edit descriptor takes the form Dw.d. All 
parameters and rules for the E edit descriptor apply to the 
D edit descriptor. 


For each form, the field is w characters wide. Thee has no 
effect on input. The input field for the E and D edit descrip- 
tors is identical to that described by an F edit descriptor 
with the same w and d. 


The form of the output field depends on the scale factor (set 
by the P edit descriptor) in effect. For a scale factor of zero, 
the output field is a minus sign (if necessary), followed by a 
decimal point, followed by a string of digits, followed by an 
exponent field for exponent exp, of one of the forms shown 
in the list of scale factors that follows. 
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Edit Absolute Value Form of 
Descriptor of Exponent Exponent 
Ew.d lexp| <= 99 E followed by plus or 
minus, followed by the 
two-digit exponent 
Ew.d 99 <|exp| <= 999 Plus or minus, followed by 
the three-digit exponent 
Ew.dEe lexp| <= (10**e)-1 E followed by plus or 
minus, followed by e dig- 
its which are the exponent 
with possible leading zeros 
Dw.d lexp| <= 99 D followed by plus or 
minus, followed by the 
two-digit exponent 
Dw.d 99 < |exp| <= 999 Plus or minus, followed by 
the three-digit exponent 
The forms Ew.d and Dw.d must not be used if the absolute 
value of the exponent to be printed exceeds 999. 
The scale factor controls the decimal normalization of the 
printed E or D field. If the scale factor, k, is in the range 
(-d<k<=0), then the output field contains exactly k leading 
zeros after the decimal point and d+ k significant digits 
after this. If (0<k<d+2), then the output field contains 
exactly k significant digits to the left of the decimal point 
and (d-k-1) places after the decimal point. Other values of k 
are errors. 
4. Greal editing 


The G edit descriptor takes the forms Gw.d and Gw.dEe. 
For either form, the input field is w characters wide, witha 
fractional part consisting of d digits. If the scale factor is 
greater than one, the exponent part consists of e digits. 


G input editing is the same as F input editing. 


G output editing is dependent on the magnitude of the data 
being edited. The following list illustrates the output equi- 
valent for the magnitude of data. 
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Data Magnitude 


M<0.1 
0.1<=M<1l 


1<=M<10 


10**(d-2) <= M 
<10**(d-1) 


10**(d-1) <= M 
<10**d 


M >= 10**d 


Conversion Equivalent 


Ew.d 


F(w-n).d,n(b’); where n is 4 for 
Gw.d; nis e+2 for Gw.dEKe, and ’b’ 
represents a blank character. 


F(w-n).(d-1), n(’b’) 


F(w-n).1, n(’b’) 


F(w-n).0, n(’b’) 
Ew.d 


5. Two successively interpreted edit descriptors of the types 
D, E, F, and G are used to specify the editing of complex 
numbers. The types may be used in combination. The first 
edit descriptor will specify the real part of the complex 
number; the second will specify the imaginary part. 


Note 


Nonrepeatable edit descriptors may appear between the 
D, E, F, and G descriptors. 
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Logical editing (L) 


The edit descriptor takes the form Lw, indicating that the 
field is w characters wide. The iolist element associated 
with an L edit descriptor must be of type LOGICAL. On 
input, the field consists of optional blanks, followed by an 
optional decimal point, followed by T (for true) or F (for 
false). Any further characters in the field are ignored, but 
accepted on input, so that .TRUE. and .FALSE. are valid 
inputs. On output, w-1 blanks are followed by either T or 
F, as appropriate. 


Character editing (A) 


The forms of the edit descriptor are A or Aw. In the first 
form, A acquires an implied field width, w, from the 
number of characters in the tolist associated item. The 
tolist item may be of any type. If it is not of type CHAR- 
ACTER, it is assumed to have one character per byte, so 
thatits length is as specified in the list of data conversion 
equivalents just presented. 


On input, if w exceeds or equals the number of characters 
in the iolist element, the rightmost characters of the input 
field are used as the input characters; otherwise, the input 
characters are left-justified in the input iolist item and 
trailing blanks are provided. 


If the number of characters input is not equal to w, then 
the input field will be blankfilled or truncated on the right 
to the length of w before being transmitted to the iolist 
item. For example, if the following program fragment is 
executed, 


CHARACTER*10 C 
READ(*,’(A15)’) C 


and the following thirteen characters are typed in at the 
keyboard, 


"ABCDEFGHIJKLM’ 
the input field will be filled to fifteen characters: 


‘ABCDEFGHIJKLM ' 
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Then the rightmost ten characters will be transmitted to 
the iolist element C: 


"FGHIJKLM ’ 


On output, if w exceeds the characters produced by the 
iolist item, leading blanks are provided; otherwise, the 
leftmost w characters of the iolist item are output. 


4.5 List-Directed I/O 


A list-directed record is a sequence of values and value separators. 
Each value in a list-directed record is one of the following: 


1. aconstant 
a null value 


either a constant or a null value multiplied by an 
unsigned, nonzero, integer constant; that is, r*c (r succes- 
sive appearances of the constant c) or r* (r successive null 
values). Except in string constants, none of these may 
have embedded blanks. 


Each value separator in a list-directed record is one of the 
following: 


1. acomma, optionally preceded or followed by one or more 
contiguous blanks 


2. aslash, optionally preceded or followed by one or more 
contiguous blanks 


3. one or more contiguous blanks between two constants, or 
after the last constant 


4.5.1 List-Directed Input 


Except as noted in the following list, input forms acceptable to 
format specifications for a given type are also acceptable for 
list-directed formatting. 
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The form of the input value must be acceptable for the type of the 
input list item. Never use blanks as zeros. Only use embedded 
blanks within character constants, as specified in the following 
list. Note that the end-of-record has the effect of a blank, except 
when it appears within a character constant. 


1. 


Real or double precision constants 


A real or double precision constant must be a numeric 
input field; that is, a field suitable for F editing. It is 
assumed to have no fractional digits unless there is a 
decimal point within the field. 


Complex constants 


The form of a complex constant is an ordered pair of real 
or integer constants separated by a comma and sur- 
rounded by an opening and a closing parenthesis. The 
first constant of the pair is the real part of the the complex 
constant and the second is the imaginary part. 


Logical constants 


A logical constant must not include either slashes or 
commas among the optional characters permitted for L 
editing. 


Character constants 


A character constant is a nonempty string of characters, 
enclosed in single quotation marks. Each single quota- 
tion mark within a character constant must be repre- 
sented by two single quotation marks, with no intervening 
blank or end-of-record. 


Character constants may be continued from the end of 
one record to the beginning of the next; the end of the 
record doesn’t cause a blank or other character to become 
part of the constant. The constant may be continued on as 
many records as needed and may include the characters 
blank, comma, and slash. 


If the length n of the list item is less than or equal to the 
length m of the character constant, the leftmost n charac- 
ters of the latter are transmitted to the list item. 
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If n is greater than m, the constant is transmitted to the 
leftmost m characters of the list item. The remaining n 
minus m characters of the list item are filled with blanks. 


The effect is the same as if the constant were assigned to 
the list item in a character assignment statement. 


Null values 


You can specify a null value in one of three ways: 


a. nocharacters between successive value separators 


no characters preceding the first value separator 
in the first record read by each execution of a 
list-directed input statement 


c. ther* form (described at the beginning of Section 
4.5, “List-Directed I/Q’’) 


A null value has no effect on the definition status of the 
corresponding input list item. If the input list item is 
defined, it retains its previous value; if it is undefined, it 
remains So. 


A slash encountered as a value separator during execu- 
tion of a list-directed input statement stops execution of 
that statement after the assignment of the previous value. 
Any further items in the input list are treated as if they 
were null values. 


Blanks 

All blanks in a list-directed input record are considered to 

be part of some value separator, except for the following: 
a. blanks embedded in a character constant 


b. leading blanks in the first record read by each 
execution of a list-directed input statement (unless 
immediately followed by a slash or comma) 
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4.5.2 List-Directed Output 


The form of the values produced is the same as required for input, 
except as noted in the following list. The list-directed line size is 80 
columns. 


1. 


New records are created as necessary, but, except for 
character constants, neither the end of a record nor 
blanks will occur within a constant. 


Logical output constants are T for the value true and F for 
the value false. 


Integer output constants are produced with the effect of 
an [12 edit descriptor. 


Real and double precision constants are produced with 
the effect of either an F or an E edit descriptor, depending 
on the value of x in the following range: 


10**0 <= x <= 10**7 


a. Ifx is within the range, the constant is produced 
using OPF 16.7 for single precision and 0PF23.14 
for double precision. 


b. Ifx is outside the range, the constant is produced 
using 1PE14.6 for single precision and 1PE21.13 
for double precision. 


5. Character constants produced have the following charac- 


teristics: 


a. They are not delimited by apostrophes (single 
quotation marks). 


b. They are neither preceded nor followed by a value 
separator. 


c. Each internal apostrophe (single quotation mark) 
is represented by one externally. 


d. A blank character is inserted at the start of any 
record that begins with the continuation of a 
character constant from the preceding record. 


Slashes, as value separators, and null values are not pro- 
duced by list-directed formatting. 


In order to provide carriage control when the record is 
printed, each output record begins with a blank character. 
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As described in Section 1.2, “Programs and Compilable Parts of 
Programs,” a program unit is either a main program, a subrou- 
tine, block data subprogram, or a function. Functions and subrou- 
tines are collectively called subprograms, or procedures. The 
PROGRAM, SUBROUTINE, BLOCK DATA and FUNCTION 
statements, as well as the statement function statement, are 
described in detail in Section 3.2, “Statement Directory.” Related 
information is provided in the entries for the CALL and RETURN 
statements. 


This chapter supplements the discussion of these individual 
statements with information on types of functions and a descrip- 
tion of the relationship between formal and actual argumentsin a 
function or subroutine call. 


5.1 Main Program 


A main program is any program unit that does not have a 
FUNCTION, SUBROUTINE, or BLOCK DATA statement as 
its first statement. The first statement of a main program may be 
a PROGRAM statement. If the main program does not have a 
PROGRAM statement, it will be assigned the name MAIN. The 
name MAIN then cannot be used to name any other global entity. 


The execution of a program always begins with the first executa- 
ble statement in the main program. Consequently, there must be 
precisely one main program in every executable program. 


For further information about programs, see Section 3.2.33, “The 
PROGRAM Statement.” 


5.2 Subroutines 


A subroutine is a program unit that can be called from other 
program units with a CALL statement. When invoked, a subrou- 
tine performs the set of actions defined by its executable state- 
ments and then returns control to the statement immediately 
following the one that called it or to a statement specified as an 
alternate return (see Section 3.2.5, “The CALL Statement.’’) 
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A subroutine does not directly return a value, although values can 
be passed back to the calling program unit via arguments or 
common variables. 


For further information about subroutines, see Section 3.2.40, 
“The SUBROUTINE Statement.” 


5.3 Functions 


A function is referred to in an expression and returns a value that 
is used in the computation of that expression. There are three 
kinds of functions: 


1. external functions 
2. intrinsic functions 


3. statement functions 
Each of these is described in more detail in the following sections. 


Reference to a function may appear in an arithmetic or logical 
expression. When the function reference is executed, the function 
is evaluated and the resulting value used as an operand in the 
expression that contains the function reference. The format of a 
function reference is as follows: 


fname ((arg [, arg] ...]) 


fname is the user-defined name of an external, 
intrinsic, or statement function. 


arg is an actual argument. 


The rules for arguments for functions are identical to those for 
subroutines (except that alternate returns are not allowed) and 
are described in Section 3.2.4, “The CALL Statement.” Some 
additional restrictions that apply for intrinsic functions and for 
statement functions are described in Section 5.3.2, ’’Intrinsic 
Functions,” and Section 5.3.3, “Statement Functions,” respec- 
tively. 
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5.3.1 External Functions 


An external function is specified by a function program unit. It 
begins with a FUNCTION statement and ends with an END 
statement. It may contain any kind of statement other than a 
PROGRAM statement, FUNCTION statement, or a SUBROU- 
TINE statement. 


5.3.2 Intrinsic Functions 


Intrinsic functions are predefined by the MS-FORTRAN lan- 
guage and available for use in an MS-FORTRAN program. Table 
5.1 gives the name, definition, argument type, and function type 
for all of the intrinsic functions availablein MS-FORTRAN, with 
additional notes following the table. 


An IMPLICIT statement cannot alter the type of an intrinsic 
function. For those intrinsic functions that allow several types of 
arguments, all arguments in a single reference must be of the 
same type. 


An intrinsic function name can appear in an INTRINSIC state 
ment. An intrinsic function name also can appear in a type 
statement, but only ifthe typeis the same as the standard type of 
that intrinsic function. 


Arguments to certain intrinsic functions are limited by the defini- 
tion of the function being computed. For example, the logarithm 
of zero is mathematically undefined, and therefore not permitted. 


All angles in Table 5.1 are expressed in radians. All arguments in 
an intrinsic function reference must be of the same type. X and Y 
are REAL; Zis a COMPLEX; I and J are INTEGER; and C, Cl, 
and C2 are character values. Numbers in square brackets in 
column 1 refer to the notes following the table. 


Furthermore, REAL is equivalent to REAL+#4, DOUBLE PRECI- 
SION is equivalent to REAL#8. If the specified type of the argu- 
ment is INTEGER, the type may be INTEGER*2 or INTEGER#4. 
If the specified type of the function is INTEGER, the type will be 
the default integer determined by the $STORAGE metacom- 
mand. (For further information, see Section 6.2.12, “The $STOR- 
AGE Metacommand.”) 
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Table 5.1 


Intrinsic Functions 


Type of Type of 
Name Definition Argument Function 
Type Conversion 
INT (generic) Convert to integer (all) INTEGER 
INT(X) [1] Convert to integer REAL#«4 INTEGER 
IFIX(X) Convert to integer REAL#«4 INTEGER 
IDINT [2] Convert to integer REAL#*8 INTEGER 
REAL (generic) Convert to REAL#4 (all) REAL#4 
REAL(I) [2] Convert to REAL#*4 INTEGER REAL#4 
DREAL(Z) Return REAL+#8 of COMPLEX#16 REAL#8 
COMPLEX+#16 
FLOAT(I) Convert to REAL#4 INTEGER REAL#«4 
SNGL(X) Convert to REAL#*4 REAL#8 REAL#4 
DBLE (generic)[3] 
Convert to REAL#8 (all) REAL#8 
CMPLX(ZY])[4] Convert to COMPLEX#8 (all) COMPLEX#8 
DCMPLX(ZY]) Convert to COMPLEX*#16 (all) COMPLEX+#16 
ICHAR(C) [5] Convert to integer CHARACTER INTEGER 
CHAR(X) [5] Convert to character INTEGER CHARACTER 
Truncation 
AINT (generic) Truncate to REAL REAL*4 REAL#«4 
REAL#8 REAL#«8 
AINT(X) Truncate to REAL*4 REAL#4 REAL#4 
DINT(X) Truncate to REAL#*8 REAL#8 REAL#8 
Nearest Whole Number 
ANINT (generic) Round to REAL REAL#4 REAL#4 
REAL#8 REAL#8 
ANINT(X) Round to REAL#«4 REAL#4 REAL#«4 
DNINT(X) Round to REAL#8 REAL#8 REAL#8 
Nearest Integer 
NINT (generic) Round to integer REAL#4 INTEGER 
REAL#8 INTEGER 
NINT(X) Round to integer REAL#«4 INTEGER 
IDNINT(X) Round to integer REAL#«8 INTEGER 
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Table 5.1 (continued) 


Name Definition 
Absolute Value 

ABS (generic) Absolute value 
IABS(]) INTEGER absolute 
ABS(X) REAL+«4 absolute 
DABS(X) REAL«+8 absolute 
CABS(Z) COMPLEX absolute 
CDABS(Z) COMPLEX+#16 absolute 
Remaindering 

MOD (generic) Remainder 

MOD(I,J) INTEGER remainder 
AMOD(X,Y) REAL*+4 remainder 
DMOPD(X,Y) REAL+#8 remainder 
Transfer of Sign 


SIGN (generic) Transfer of sign 


ISIGN(I,J) INTEGER transfer 
SIGN(X,Y) REAL+#4 transfer 
DSIGN(X,Y) REAL+«8 transfer 
Positive Difference [5] 

DIM (generic) Positive difference 
IDIM(I,J) INTEGER difference 
DIM(X,Y) REAL+#4 difference 
DDIM(X, Y) REAL«8 difference 
Choosing Largest Value 

MAX (generic) Return maximum 
MAXO(IJ,...) INTEGER maximum 
AMAX1(X,Y,...) REAL*4 maximum 
AMAXO(I,JJ,...) REAL*4 maximum 
MAXI(X,Y....) INTEGER maximum 
DMAX1(X%,Y,...) REAL*8 maximum 


Type of 
Argument 


(all) 


INTEGER 
REAL#4 
REAL#8 


COMPLEX#8 
COMPLEX+#16 


COMPLEX#16 


INTEGER 
REAL*#4 
REAL#«8 


INTEGER 
REAL+#4 
REAL+#8 


INTEGER 
REAL*4 
REAL#8 


INTEGER 
REAL#4 
REAL+8 


INTEGER 
REAL#4 
REAL#8 


INTEGER 
REAL#4 
REAL#8 


INTEGER 
REAL#4 
REAL«8 


INTEGER 
REAL#4 
INTEGER 
REAL#4 
REAL#8 


Type of 
Function 


(all) 


INTEGER 
REAL#4 
REAL+«8 
REAL#4 
REAL#«8 


REAL#8 


INTEGER 
REAL*4 
REAL#8 


INTEGER 
REAL#4 
REAL«8 


INTEGER 
REAL#4 
REAL#8 


INTEGER 
REAL+#4 
REAL#8 


INTEGER 
REAL#4 
REAL#8 


INTEGER 
REAL#4 
REAL#8 


INTEGER 
REAL#4 
REAL#8 


INTEGER 
REAL#4 
REAL#4 
INTEGER 
REAL#8 
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Table 5.1 (continued) 


Name 


Definition 


Choosing Smallest Value 


MIN (generic) 


MINO(I,J,...) 
AMIN1(X.Y....) 
AMINO(L,J,...) 
MINI(X.Y....) 
DMINI(X.Y,...) 


REAL#8 Product 


DPROID(X,Y) 


Return minimum 


INTEGER minimum 
REAL#4 minimum 
REAL#4 minimum 
INTEGER minimum 
REAL#8 minimum 


REAL#8 product 


Imaginary Part of 
Complex Argument 


AIMAG(Z) 
DIMAG(Z) 


Conjugate of a 


Complex Argument 

CONJG(Z) Conjugate of 
COMPLEX+#8 

DCONJG(Z) Conjugate of 
COMPLEX#16 


Square Root 
SQRT (generic) 


SQRT 
DSQRT 
CSQRT 
CDSQRT 


Exponential 
EXP (generic) 


EXP(X) 
DEXP(X) 
CEXP 
CDEXP 
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Reduce imaginary part of 
ordered pair to REAL#4 


Reduce imaginary part of 
ordered pair to REAL*8 


Square root 


REAL+#4 square root 
REAL+#8 square root 
COMPLEX+#8 square root 
COMPLEX<16 square root 


Exponent 


REAL+#4 e to power 
REAL+#8 e to power 
COMPLEX48 e to power 
COMPLEX<+16 e to power 


Type of 
Argument 


INTEGER 
REAL*4 
REAL#«8 


INTEGER 
REAL+#4 
INTEGER 
REAL+4 
REAL+#8 


REAL+#4 


COMPLEX+«8 


COMPLEX#16 


COMPLEX#8 


COMPLEX*16 


REAL#4 
REAL#8 
COMPLEX«8 
COMPLEX+16 


REAL*4 
REAL#«8 
COMPLEX#8 
COMPLEX+#16 


REAL#4 
REAL#8 
COMPLEX+*8 
COMPLEX+#16 


REAL+«4 
REAL#8 
COMPLEX+#8 
COMPLEX+16 


Type of 
Function 


INTEGER 
REAL+4 
REAL+*8 


INTEGER 
REAL*#4 
REAL#4 
INTEGER 
REAL#8 


REAL+*8 


REAL+#4 


REAL+8 


COMPLEX*8 


COMPLEX*16 


REAL+«4 
REAL#8 
COMPLEX+8 
COMPLEX+#16 


REAL+4 
REAL+*8 
COMPLEX+#8 
COMPLEX*16 


REAL+*4 
REAL#8 
COMPLEX+8 
COMPLEX+#16 


REAL*4 
REAL#8 
COMPLEX+#8 
COMPLEX+16 
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Table 5.1 (continued) 


Type of Type of 
Name Definition Argument Function 
Natural Logarithm 
LOG (generic) Natural logarithm REAL#4 REAL#4 
REAL#8 REAL#8 
COMPLEX*8 COMPLEX#8 
COMPLEX#16 COMPLEX+#16 
ALOG(X) Nat’l log of REAL#4 REAL#4 REAL#4 
DLOG(X) Nat’] log of REAL#8 REAL#8 REAL#8 
CLOG(Z) Nat’] log of Complex COMPLEX#8 COMPLEX#8 
CDLOG(Z) Nat’! log of Complex COMPLEX+#16 COMPLEX+#16 
Common Logarithm 
LOG10 (generic) Common logarithm REAL#4 REAL#4 
REAL#«8 REAL#«8 
ALOG10(X) Common log of REAL«*«4 REAL#«4 REAL#4 
DLOG10(X) Common log of REAL#8 REAL#8 REAL#8 
Sine 
SIN (generic) Sine function REAL#4 REAL#«4 
REAL+#8 REAL#8 
COMPLEX#8 COMPLEXK#8 
COMPLEX#16 COMPLEX+#16 
SIN(X) REAL#4 sine REAL#«4 REAL#4 
DSIN(X) REAL#8 sine REAL#8 REAL#8 
CSIN(Z) COMPLEX8 sine COMPLEX#8 COMPLEX#8 
CDSIN(Z) COMPLEX*16 sine COMPLEX#16 COMPLEX#16 
Cosine 
COS (generic) Cosine function REAL#4 REAL*4 
REAL#8 REAL#«8 
COMPLEX#8 COMPLEX#8 
COMPLEX#16 COMPLEX+*16 
COS(X) REAL+4 cosine REAL#«4 REAL#4 
DCOS(X) REAL+#8 cosine REAL#«8 REAL#8 
CCOS(Z) COMPLEX<8 cosine COMPLEX#8 COMPLEX#8 
CDCOS(Z) COMPLEX+£16 cosine COMPLEX#16 COMPLEX+#16 
Tangent 
TAN (generic) Tangent function REAL#4 REAL*#4 
REAL#8 REAL#«8 
TAN(X) REAL+#«4 tangent REAL#4 REAL#4 
DTAN(X) REAL#8 tangent REAL+8 REAL#8 
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Table 5.1 (continued) 


Name 


Argument 


Arce Sine 
ASIN (generic) 


ASIN(X) 
DASIN(X) 


Arc Cosine 
ACOS (generic) 


ACOS(X) 
DACOS(X) 


Arc Tangent 
ATAN (generic) 


ATAN(X) 
DATAN(X) 


ATAN2 (generic) 


ATAN2(X,Y) 
DATAN2(X,Y) 


Hyperbolic Sine 


SINH (generic) 


SINH(X) 
DSINH(X) 


Definition 


Arc sine function 


REAL+#4 arc sine 
REAL+#8 arc sine 


Arc cosine function 


REAL+#4 arc cosine 
REAL48 arc cosine 


Arc tangent function 


REAL+#4 arc tangent 
REAL+8 arc tangent 


Arctan (X/Y) 


REAL+#4 arctan of X/Y 
REAL+#8 arctan of X/Y 


Hyperbolic sine 


REAL+#4 hyperbolic 
sine 
REAL#8 hyperbolic 


sine 


Hyperbolic Cosine 


COSH (generic) Hyperbolic cosine 

COSH(X) REAL+#4 hyperbolic 
cosine 

DCOSH(X) REAL#8 hyperbolic 
cosine 

Hyperbolic Tangent 


TANH (generic) 


TANH(X) 
DTANH(X) 


170 


Hyperbolic tangent 


REAL+#4 hyperbolic 
tangent 
REAL+8 hyperbolic 
tangent 


Type of 


REAL#4 
REAL#8 


REAL#4 
REAL#8 


REAL#4 
REAL#8 


REAL#+4 
REAL#8 


REAL#4 
REAL#*8 


REAL*#4 
REAL#8 


REAL#4 
REAL#8 


REAL#4 
REAL#8 


REAL#4 
REAL#8 


REAL#*4 
REAL#8 


REAL*#4 
REAL#«8 


REAL*#4 
REAL#«8 


REAL#4 
REAL#8 


REAL#4 


REAL«8 


Type of 
Function 


REAL+4 
REAL#8 


REAL+#4 
REAL#8 


REAL#4 
REAL#8 


REAL+#4 
REAL#8 


REAL+#4 
REAL#8 


REAL#4 
REAL#8 


REAL#*4 
REAL#«8 


REAL+*4 
REAL#8 


REAL#4 
REAL#8 


REAL#«4 
REAL#8 


REAL#*4 
REAL#8 


REAL+4 
REAL+8 


REAL#4 
REAL#8 


REAL#4 


REAL+8 
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Table 5.1 (continued) 


Type of Type of 

Name Definition Argument Function 
Lexically Greater Than or Equal 
LGE(C1,C2) [7] lst argument 

greater than 

or equal to 2nd CHARACTER LOGICAL 
Lexically Greater Than 
LGT(C1,C2) [7] lst argument 

greater than 2nd CHARACTER LOGICAL 
Lexically Less Than or Equal 
LLE(C1,C2) [7] lst argument 

less than or 

equal to 2nd CHARACTER LOGICAL 
Lexically Less Than 
LLT(C1,C2) [7] lst argument 

less than 2nd CHARACTER LOGICAL 
End of File [8] 
EOF(I) INTEGER end of file INTEGER LOGICAL 
Notes for Table 5.1: 

1. For Xoftype INTEGER, INT(X)=xX. For X of type REAL or REAL#8, if X 
is greater than or equal to zero, then INT(X) is the largest integer not 
greater than X, and if X is less than zero, then INT(X) is the most 
negative integer not less than X. For X of type REAL, IFTX(X) is the 
same as INT(X). 

2. For X of type REAL, REAL(X)=X. For X of type INTEGER or REAL+8, 
REAL(X) is as much precision of the significant part of X as areal datum 
can contain. For X of type INTEGER, FLOAT(X) is the same as 
REAL(X). 

3. For X of type REAL*8, DBLE(X)=X. For X of type INTEGER or REAL, 


DBLE(X) is as much precision of the significant part of X as a double 
precision datum can contain. 
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Notes for Table 5.1 (continued) 
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4, 


CMPLX and DCMPLX may have one or two arguments. If there is one 
argument, it may be of type integer, real, double precision, complex, or 
double precision complex. If there are two arguments, they must be of the 
same type and the allowable types are integer, real and double precision. 
Where Z=COMPLEX*8, CMPLX(Z)=Z. For Z= INTEGER, REAL, and 
REAL*8 then CMPLX(Z)= the complex value whose real part is 
REAI(Z) and whose imaginary part is 0. 

CMPLX(Z,Y)= the complex value whose real part is REAL(Z) and whose 
imaginary part is REAL(Y). 

Where Z=COMPLEX#16, DCMPLX(Z)=Z. For Z= INTEGER, REAL, and 
REAL*8 then DCMPLX(Z)= the complex value whose real part is 
REAL*8 and whose imaginary part is 0. For Z=COMPLEX%8, 
DCMPLX(Z) has a real part equal to DBLE(Z) and an imaginary part 
equal to DBLE(AIMAG(Z)). 

DCMPLX(Z,Y)= the complex value whose real part is REAL*8(Z) and 
whose imaginary part is REAL*8(Y). 

ICHAR converts a character value into an integer value. The integer 
value of acharacter is the ASCII internal representation of that charac- 
ter, and is in the range 0 to 255. For any two characters, cl and c2, (cl 
.LE. c2) is .TRUE. if and only if (ICHAR(cl1) .LE. ICHAR(c2)) is. TRUE. 
CHAR(2) returns the ith character in the collating sequence. The value is 
of type CHARACTER, length one, while i must be an integer expression 
whose value is in the range 0 <= i <= 255. 

ICHAR(CHAR()) = i for 0 <= i <= 255. 

CHAR(UICHAR(c)) = ¢ for any character c in the character set. 
DIM(X,Y) is X-Y if X>Y, zero otherwise. 


LGE(X,Y) returns the value .TRUE. if X = Y orif X follows Y in the ASCII 
collating sequence; otherwise it returns .FALSE. 

LGT(X,Y) returns .TRUE-. if X follows Y in the ASCII collating sequence; 
otherwise it returns .FALSE. 

LLE(X,Y) returns .TRUE. if X = Y or if X precedes Y in the ASCII 
collating sequence; otherwise it returns .FALSE. 


LLT(X,Y) returns .TRUE. if X precedes Y in the ASCII collating 
sequence; otherwise it returns .FALSE. 


If the operands are of unequal length, the shorter operand is considered 
to be blankfilled on the right to the length of the longer. 


EOF(I) returns the value. TRUE. if the unit specified by its argument is 
at or past the end of file record; otherwise it returns .FALSE. The value 
of X must correspond to an open file. EOF cannot refer to Unit 0 (the 
screen or keyboard). 
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5.3.3 Statement Functions 


A statement function is defined by a single statement and is 
similar in form to an assignment statement. A statement function 
statement can only appear after the specification statements and 
before any executable statements in the program unit in which it 
appears. 


A statement function is not an executable statement, since it is 
not executed in order as the first statement in its particular pro- 
gram unit. Rather, the body of a statement function serves to 
define the meaning of the statement function. It is executed, as 
any other function, by the execution of a function reference in an 
expression. 


For information on the syntax and use of a statement function 
statement, see Section 3.2.38, “The Statement Function State- 
ment.” 


5.4 Arguments 


A formal argument is the name by which the argument is known 
within a function or subroutine; an actual argument is the specific 
variable, expression, array, etc., passed to the procedure in ques- 
tion at any specific calling location. The relationship between 
formal and actual arguments in a function or subroutine call is 
discussed in detail in the following paragraphs. 


Arguments pass values into and out of procedures by reference. 
The number of actual arguments must be the same as the number 
of formal arguments, and the corresponding types must agree. 


Upon entry to a subroutine or function, the actual arguments are 
associated with the formal arguments, much as an EQUIVAL- 
ENCE statement associates two or more arrays or variables, and 
COMMON statements in two or more program units associate 
lists of variables. This association remains in effect until execu- 
tion of the subroutine or function is terminated. Thus, assigning a 
value to a formal argument during execution of a subroutine or 
function may alter the value of the corresponding actual argument. 
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If an actual argument is a constant, function reference, or an 
expression other than a simple variable, assigning a value to the 
corresponding formal argument is not permitted, and can have 
some strange side effects. In particular, assigning a value to a 
formal argument of type CHARACTER, when the actual argu- 
ment is a literal, can produce anomalous behavior. 


If an actual argument is an expression, it is evaluated just before 
the association of formal and actual arguments. If an actual 
argument is an array element, its subscript expressions are also 
evaluated just before the association, and remain constant 
throughout the execution of the procedure, even if they contain 
variables that are redefined during the execution of the procedure. 


A formal argument that is a variable can be associated with an 
actual argument that is a variable, an array element, or an 
expression. 


A formal argument that is an alternate return (*) can be asso- 
ciated with an alternate return specifier (+n) in the CALL state- 
ment and is repeatable. 


A formal argument that is an array can be associated with an 
actual argument that is an array or an array element. The 
number and size of dimensions in a formal argument may be 
different from those of the actual argument, but any reference to 
the formal array must be within the limits of the memory 
sequence in the actual array. While a reference to an element 
outside these bounds is not detected as an error in a running 
MS-FORTRAN program, the results are unpredictable. 


A formal argument may also be associated with an external 
subroutine, function, or intrinsic function if it is used in the body 
of the procedure as a subroutine or function reference, or if it 
appears in an EXTERNAL statement. 


A corresponding actual argument must be an external subroutine 
or function, declared with the EXTERNAL statement, or an 
intrinsic function permitted to be associated with a formal proce- 
dure argument. The intrinsic function must have been declared 
with an INTRINSIC statement in the program unit where it is 
used as an actual argument. 
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All intrinsic functions, except the following, may be associated 
with formal procedure arguments: 


INT AMAX0O DMIN1 
IFIX AMAX1 LGE 
IDINT MAX LGT 
FLOAT MAX0O LLE 
SNGL MAX1 LLT 


REAL MIN 
DBLE MINO 
CMPLX MINI 
DCMPLX AMINO 
ICHAR AMIN1 
CHAR DMAX1 
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6.1 Overview 


Metacommands are directives that order the MS-FORTRAN 
Compiler to process MS-FORTRAN source text in a specific way. 
MS-FORTRAN metacommands are described briefly in Table 6.1 
and discussed in more detail in the remainder of the chapter. 


Table 6.1 


The Microsoft FORTRAN Metacommands 


Metacommand 


$DEBUG 


$DECMATH 
$DO66 


$FLOATCALLS 


$INCLUDE: file’ 


Action 


Turns on runtime checking for integer arithmetic 
operations and assigned GOTO values. $NODEBUG 
turns checking off. $DEBUG doesn’t trigger or sup- 
press floating-point exceptions. 

Directs the compiler to generate real constants in 
decimal floating-point format. 


Causes DO statements to have FORTRAN 66 
semantics. 


Directs compiler to generate calls to subroutines in 
the emulator library. $NOFLOATCALLS causes 
the compiler to generate in-line interrupt instructions. 


Directs compiler to proceed as if file were inserted at 
that point. 


$LARGE [:name [, name]] 


$SLINESIZE:n 
$LIST 


Labels the named array for addressing outside of the 
DGROUP. $NOTLARGE disables the ‘large’ func- 
tion for the named array. If [name] is missing, these 
commands affect all arrays. 

Makes subsequent pages of listing n columns wide. 


Sends subsequent listing information to the listing 
file. $NOLIST stops generation of listing information. 


$MESSAGE:’ quoted string’ 


$PAGE 
$PAGESIZE:n 


$STORAGE:n 


Sends a quoted character string to the standard out- 
put device. 


Starts new page of listing. 


Makes subsequent pages of listing n lines long, min- 
imum n=15. 


Allocates n bytes of memory to all LOGICAL or 
INTEGER variables in source. 
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Table 6.1 (continued) 
Metacommand Action 


$STRICT Disables MS-FORTRAN features not in 1977 subset 
or full language standard. $NOTSTRICT enables 
them. 


$SUBTITLE:’subtitle’ 
Gives subtitle for subsequent pages of listing. 


$TITLE? title’ Gives title for subsequent pages of listing. 


Metacommands can be intermixed with MS-FORTRAN source 
text within an MS-FORTRAN source program; however, they are 
not part of the standard FORTRAN language. Any line of input 
to the MS-FORTRAN Compiler that begins with a ‘“‘$” character 
in column one is interpreted as a metacommand and must con- 
form to one of the allowable formats. 


A metacommand and its arguments (if any) must fit on a single 
source line; continuation lines are not permitted. Also, blanks are 
significant, so that the following pair is not equivalent: 


$S TRICT 
$STRICT 


6.2 Metacommand Directory 


The remainder of this chapter is an alphabetical directory of 
available MS-FORTRAN metacommands. 
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6.2.1 The $DEBUG and 
SNODEBUG Metacommands 


Syntax 
$[NO]DEBUG 


Purpose 


Directs the compiler to (1) test integer arithmetic for overflow and 
division by zero, (2) test assigned GOTO values against the 
allowable listin an assigned GOTO statement, and (3) provide the 
runtime error-handling system with source filenames and line 
numbers. If any runtime error occurs, the filename and line 
number are displayed on the console. 


Remarks 


The metacommand can appear anywhere in a program. BUG 
does not trigger or suppress floating-point exception handling. 
MS-FORTRAN conforms to the proposed IEEE Standard for 
exception handling for the five following conditions: invalid opera- 
tion, divide by zero, overflow, underflow, and precision. See the 
Microsoft FORTRAN Compiler User’s Guide for information 
about exception handling on your system. 


The default value of the pair of metacommands, $DEBUG and 
$NODEBUG, is $NODEBUG. 
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6.2.2 The $DECMATH Metacommand 


Syntax 
$DECMATH 


Purpose 


Directs the compiler (and the runtime for the compiled program) 
to have floating-point math performed in base-10 rather than 
binary. Specifically, DECMATH forces constants to be repre- 
sented in base-10 math format. 


Remarks 
This metacommand must appear before the first program or sub- 
program statement; it can only be preceded by comment lines and 


other metacommands in the source and may only be given once. 


$DECMATH automatically sets $FLOATCALLS. If$DECMATH 
is set, $FLOATCALLS and $NOFLOATCALLS will be ignored. 
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The $DO66 Metacommand 


Syntax 


$DO66 


Purpose 


Causes DO statements to have FORTRAN 66 semantics. 


Remarks 


$DO66 must precede the first declaration or executable statement 
of the source file in which it occurs. $DO66 may only be preceded 
by a comment line or another metacommand. $DO66 may only 
appear once in the source file. 


The FORTRAN 66 semantics are as follows: 


1, 
2. 


All DO statements are executed at least once. 


Extended range is permitted; that is, control may transfer 
into the syntactic body of a DO statement. The range of 
the DO statement is thereby extended to logically include 
any statement that may be executed between a DO state- 
ment and its terminal statement. However, the transfer of 
control into the range of a DO statement prior to the 
execution of the DO statement or following the final exe- 
cution of its terminal statement is invalid. 


If a program contains no $DO66 metacommand, the default is to 
FORTRAN 77 semantics, as follows: 


1. 


DO statements may be executed zero times, if the initial 
control variable value exceeds the final control variable 
value (or the corresponding condition for a DO statement 
with negative increment). 


Extended range is invalid; that is, control may not 
transfer into the syntactic body of a DO statement. (Both 
standards do permit transfer of control out of the body ofa 
DO statement.) 
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6.2.4 The $FLOATCALLS and 
SNOFLOATCALLS Metacommmands 


Syntax 
$[NOJFLOATCALLS 


Purpose 


The $FLOATCALLS metacommand causes your floating-point 
operations to be processed by calls to library subroutines. 


Remarks 


When you enter $FLOATCALLS into your source, call instruc- 
tions are generated for real number computations. $NOFLOAT- 
CALLS suppresses the default condition and causes the compiler 
to generate in-line interrupt instructions rather than subroutine 


calls. $FLOATCALLS is the default. 
$DECMATH automatically sets $F LOATCALLS; if $DECMATH 


is given, neither $FLOATCALLS nor $NOFLOATCALLS may 
appear. (See $DECMATH for more information). 
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6.2.5 The $INCLUDE Metacommand 
Syntax 
$INCLUDE:: ’file’ 


Purpose 

Directs the compiler to proceed as though the specified file were 
inserted at the point of the $INCLUDE. 

Remarks 


file is a valid file specification as described for your operating 
system. 


At the end of the included file, the compiler resumes processing 
the original source file at the line following $INCLUDE. 


The compiler imposes no limit on nesting levels for $INCLUDE 
metacommands. $INCLUDE metacommands are particularly 
useful for guaranteeing that several modules use the same decla- 
ration fora COMMON block. 
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6.2.6 The $LARGE and 
SNOTLARGE Metacommands 


Syntax 
$[NOT]JLARGE [: name [, name]....] 


Purpose 


The $LARGE metacommand is supplied for use on systems 
whose memory model makes programs more efficient if the com- 
piler can assume that both the size of arrays and the total amount 
of non-COMMON data is restricted. $LARGE directs the com- 
piler to allocate arrays in a less restricted way and to generate the 
less efficient code sequences to reference them. See the Microsoft 
FORTRAN Compiler User’s Guide for details that apply to your 
system. 


Remarks 


$LARGE may be used without arguments, the “generic” case. 
This form may occur anywhere except in the executable section of 
a subprogram. $LARGE affects all subprograms that follow its 
occurrence in the source file unless a generic $NOTLARGE 
metacommand is issued in subsequent code. $NOTLARGE fol- 
lows the same rules as $LARGE but has the opposite effect. 
$NOTLARGE is the default. 


In the region between an END statement (or the start of the 
compilation unit) and the executable part of the next subprogram 
or main program, the generic form of $LARGE or $NOTLARGE 
but not both may occur only once. For example, the following code 
fragment is illegal; 


$LARGE 

SUBPROGRAM P 
$NOTLARGE 

A=1.0 
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$LARGE and $NOTLARGE can also take valid array variable 
names and formal array arguments. The array names must be 
followed by a colon. If arrays are specified with $LARGE, the 
metacommand must occur in the declarative section of a subpro- 
gram, and it only affects the arrays or formal array arguments 
declared in that subprogram. 


Note 


Arrays with explicit dimensions that indicate that they are 
bigger than the allowable limit of 64K bytes are automatically 
allocated to multiple segments outside of the default data 
segment. You do not need to issue $LARGE for these arrays. 
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6.2.7 The SLINESIZE Metacommand 


Syntax 
$LINESIZE:n 


Purpose 


Formats subsequent pages of the listing n columns wide. 


Remarks 
nis any positive integer. 
If a program contains no $LINESIZE metacommand, a default 


line size of 80 characters is assumed. The minimum line size is 40 
characters, the maximum is 132 characters. 
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6.2.8 The $LIST and 
SNOLIST Metacommands 


Syntax 
$[ NOJLIST 


Purpose 

Sends subsequent listing information to the listing file specified 
when starting the compiler. If no listing file is specified in 
response to the compiler prompt, the metacommand has no effect. 
$NOLIST directs that subsequent listing information be dis- 
carded. 


Remarks 
$LIST and $NOLIST can appear anywhere in a source file. 


The default condition for the pair of metacommands, $LIST and 
$NOLIST, is $LIST. 
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6.2.9 The $MESSAGE Metacommand 


Syntax 
$MESSAGE:’ quoted string’ 


Purpose 
Instructs the compiler to display a quoted string at the standard 
output device during the compilation. 
Remarks 
The $MESSAGE metacommand can be used to send a quoted 
string to the standard output device when running MS-FORTRAN 
FOR1.EXE. For example, the entry 

$MESSAGE 'Phase | being compiled’ 


will deliver the character string in single quotes to the output 
device. 


The maximum length of the string is 40 characters. 


190 


The Microsoft FORTRAN Metacommands 
6.2.10 The $PAGE Metacommand 


Syntax 
$PAGE 


Purpose 


Starts a new page of the listing. 


Remarks 
If the first character of a line of source text is the ASCII form feed 


character (hexadecimal code 0Ch), it is considered as equivalent 
to the occurrence of a $PAGE metacommand at that point. 
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6.2.11 The $PAGESIZE Metacommand 


Syntax 
$PAGESIZE:n 


Purpose 


Formats subsequent pages of the listing n lines high. 


Remarks 
n must be at least 15. 


If a program contains no $PAGESIZE metacomman4d, a default 
page size of 66 lines is assumed. 
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6.2.12 The $STORAGE Metacommand 


Syntax 
$STORAGE:n 


Purpose 


Allocates n bytes of memory for all variables declared in the 
source file as INTEGER or LOGICAL. 


Remarks 


n is either 2 or 4. Use a value of 2 for code that defaults to 16-bit 
arithmetic. See also the important note on performance issues in 
Section 2.3, “Data Types.” 


$STORAGE does not affect the allocation of memory for varia- 
bles declared with an explicit length specification, for example, as 
INTEGER#2 or LOGICAL#4. 


If several files of a source program are compiled and linked 
together, you should be particularly careful that they are consist- 
entin their allocation of memory for variables (such as actual and 
formal parameters) referred to in more than one module. 


The $STORAGE metacommand must precede the first declara- 
tion statement of the source file in which it occurs. 


If a program contains no $5TORAGE metacommand, a default 
allocation of 4 bytes is used. This default results in INTEGER, 
LOGICAL, and REAL variables being allocated the same amount 
of memory, as required by the FORTRAN 77 standard. 
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6.2.13 The $STRICT and 
SNOTSTRICT Metacommands 


Syntax 
${NOT]STRICT 


Purpose 


$STRICT disables the specific MS-FORTRAN features not found 
in the FORTRAN 77 subset or full language standard. 


Remarks 


The $NOTSTRICT metacommand enables these MS-FORTRAN 
features, which are the following: 


1. Character expressions may be assigned to noncharacter 
variables. 


2. Character and noncharacter expressions may be com- 
pared. 


3. Character and noncharacter variables are al- 
lowed in the same COMMON block. 


4. Character and noncharacter variables may be equiva- 
lenced. 


5. Noncharacter variables may be initialized with character 
data. 


$STRICT and $NOTSTRICT can appear anywhere in a source 
file. 


The default condition for the pair of metacommands, $STRICT 
and $NOTSTRICT, is $NOTSTRICT. 
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6.2.14 The $SUBTITLE Metacommand 


Syntax 
S$SUBTITLE: ’subtitle’ 


Purpose 

Assigns the specified subtitle for subsequent pages of the source 
listing (until overridden by another $SUBTITLE metacommand). 
Remarks 


subtitle is any valid character constant. The maximum length is 
40 characters. 


If a program contains no $SUBTITLE metacomman4d, the subti- 
tle is a null string. 
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6.2.15 The $TITLE Metacommand 


Syntax 
$TITLE: ’title’ 


Purpose 

Assigns the specified title for subsequent pages of the listing 
(until overridden by another $TITLE metacommana). 
Remarks 


title is any valid character constant. The maximum length is 40 
characters. 


If a program contains no $TITLE metacommand, the title is a 
null string. 
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Appendix A 


Microsoft FORTRAN and 
ANSI Subset FORTRAN 


This appendix describes how MS-FORTRAN differs from the 
standard subset language. The ANSI standard defines two levels, 
full FORTRAN and subset FORTRAN. MS-FORTRAN is a 
superset of the latter. The differences between MS-FORTRAN 
and the standard subset FORTRAN fall into two general catego- 
ries: full language features and extensions to the standard. 


A.1 Full Language Features 


Several features from the full language are included in this 
implementation. In all cases, a program written to comply with 
the subset restrictions compiles and executes properly, since the 
full language includes the subset constructs. 


1. Subscript expressions 


The subset does not allow function calls or array element 
references in subscript expressions; however, these are 
allowed in the full language and in this implementation. 


2. DO variable expressions 


The subset restricts expressions that define the limits of a 
DO statement; the full language does not. MS-FORTRAN 
also allows full integer expressions in DO statement limit 
computations. Similarly, arbitrary integer expressions 
are allowed in implied DO loops associated with READ 
and WRITE statements. 
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Unit I/O number 


MS-FORTRAN allows an I/O unit to be specified by an 
integer expression, as does the full language. 


Expressions in input/output list <iolist> 


The subset does not allow expressions to appear in an 
<iolist>, whereas the full language does allow expres- 
sions in the <iolist> of WRITE statements. MS-FORTRAN 
allows expressions in the <iolist> of a WRITE statement 
providing that the expressions do not begin with an 
initial left parenthesis. 


Note that an expression like (A+B)*(C+D) can be specified 
in an output list as +(A+B)*#(C+D). Doing so does not gen- 
erate any extra code to evaluate the leading plus sign. 


Double precision and Complex numbers 


The subset does not allow double precision real numbers 
or complex numbers; MS-FORTRAN provides for them as 
in the full language standard. 


Edit descriptors 


MS-FORTRAN allows for D, G, T, TR, TL, S, SS, SP, and 
(:) edit descriptors as in the full language standard. 


Expression in computed GOTO 


MS-FORTRAN allows an expression for the selector of a 
computed GOTO, consistent with the full, rather than the 
subset, language. 


Generalized I/O 


MS-FORTRAN allows both sequential and direct access 
files to be either formatted or unformatted. The subset 
language requires direct access files to be unformatted 
and sequential files to be formatted. 


MS-FORTRAN also includes the following: 


a. anaugmented OPEN statement that takes additional 
parameters not included in the subset (see Section 
3.2.28, “The OPEN Statement’) 


b. aform ofthe CLOSE statement, which is not included 
in the subset (see Section 3.2.5, “The CLOSE State- 
ment’) 


10. 


11. 


12. 


13. 
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c. a form of the INQUIRE statement which is not 
included in the subset 


d. END=,ERR=, IOSTAT=, STATUS2, and FILE= speci- 
fiers on I/O statements 


. List-directed I/O 


MS-FORTRAN provides for list-directed I/O as described 
in the full language standard. 


Array dimensions 


MS-FORTRAN supports seven (7) array dimensions in 
conformance with the full language standard. 


Continuation lines 


MS-FORTRAN permits 19 continuation line in confor- 
mance with the full language standard. 


The BLOCK DATA statement 


MS-FORTRAN implements the BLOCK DATA state- 
ment but does not check for all of the restrictions that 
apply in the full language standard. 


CHARACTER-typed function 


Subject to restriction, functions may be of type CHAR- 
ACTER. 


Extensions to the Standard 


The implemented language also has several minor extensions to 
the full language standard. 


1. 


2: 


User-defined names greater than six characters are al- 
lowed, although only the first six characters are signifi- 
cant. 


Tabs in source files are allowed. See Section 2.1.3, “Tabs,” 
for details. 
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Metacommands, or compiler directives, have been added 
to allow the programmer to communicate certain infor- 
mation to the compiler. The metacommand line is charac- 
terized by a dollar sign ($) appearing in column 1. A 
metacommand line may appear any place that a com- 
ment line can appear, although certain metacommands 
are restricted as to their location within a program (see 
Section 2.2.4, “Statement Definition and Order’’). 


A metacommand line conveys certain compile time in- 
formation about the nature of the current compilation to 
the MS-FORTRAN Compiler. Metacommands are de- 
scribed in Chapter 6, ‘“‘The Microsoft FORTRAN Meta- 
commands.” 


The standard is relaxed when the $NOTSTRICT meta- 
command isin effect. This relaxation allows, for example, 
such MS-FORTRAN features as assignment of character 
to any variable type and initialization of any variable 
with character data. See Section 6.2.18, “The $STRICT and 
$NOTSTRICT Metacommands, for a complete list of 
these features. 


The backslash (\) edit control character can be used in 
format specifications to inhibit normal advancement to 
the next record associated with the completion of a READ 
or WRITE statement. This is particularly useful when 
prompting to an interactive device, such as the screen, so 
that a response can appear on the same line as the 
prompt. See item 5, Section 4.4.2.1, ‘“Nonrepeatable Edit 
Descriptors,” for more information. 


An end of file intrinsic function, EOF, is provided. The 
function accepts a unit specifier as an argument and 
returns a logical value that indicates whether the speci- 
fied unit is at its end of file. 


Both upper and lowercase source input are allowed. In 
most contexts, lowercase characters are treated as indis- 
tinguishable from their uppercase counterparts. How- 
ever, lowercase is significant in character constants and 
Hollerith fields. 


Binary files are similar to unformatted sequential files 
except that they have no internal structure. This allows 
the program to create or read files with arbitrary contents, 
whichis particularly useful for files created by or intended 
for programs written in languages other than FORTRAN. 


9. 


10. 
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COMPLEX#16; MS-FORTRAN supports a 16 byte repre- 
sentation of a complex number (an ordered pair of DOU- 
BLE PRECISION numbers). 


If an input operation READs more characters from a 
formatted record than the record contains, the record is 
padded with blanks on the right. 


When READing numeric and logical items using format- 
ted input/output, the input fields may be delimited by 
commas, overriding the field width specification. 
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ASCII Character Codes 


Dec 


000 
001 
002 
003 
004 
005 
006 
007 
008 
009 
010 
O11 
012 
013 
014 
015 
016 
017 
018 
019 
020 
021 
022 
023 
024 
025 
026 
027 
028 
029 
030 
031 
032 
033 
034 
035 


Hex 


00H 
01H 
02H 
03H 
04H 
04H 
06H 
07H 
08H 
09H 
OAH 
OBH 
OCH 
ODH 
OEH 
OFH 
10H 
11H 
12H 
13H 
14H 
15H 
16H 
17H 
18H 
19H 
1AH 
1BH 
1CH 
1DH 
1EH 
1FH 
20H 
21H 
22H 
23H 


Dec 


036 
037 
038 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
053 
054 
055 
056 
057 
058 
059 
060 
061 
062 
063 
064 
065 
066 
067 
068 
069 
070 
O71 


Hex 


24H 
25H 
26H 
27H 
28H 
29H 
2AH 
2BH 
2CH 
2DH 
2EH 
2FH 
30H 
31H 
32H 
33H 
34H 
35H 
36H 
37H 
38H 
39H 
3AH 
3BH 
3CH 
3DH 
3EH 
3FH 
40H 
41H 
42H 
43H 
44H 
45H 
46H 
47H 


CHR 


eo) 


fe SESE, PG 


WOON WNR OC 


QBADOWPaAYV IAT 
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Dec 


072 
073 
074 
075 
076 
077 
078 
079 
080 
081 
082 
083 
084 
085 
086 
087 
088 
089 
090 
091 
092 
093 
094 
095 
096 
097 
098 
099 
100 


Dec=decimal, Hex=hexadecimal (H), CHR=character, 
LF=Line Feed, FF=Form Feed, CR=Carriage Return, 


Hex 


48H 
49H 
4AH 
4BH 
4CH 
4DH 
4EH 
4FH 
50H 
51H 
52H 
53H 
54H 
55H 
56H 
57H 
58H 
59H 
5AH 
5BH 
5CH 
5DH 
5EH 
5FH 
60H 
61H 
62H 
63H 
64H 


DEL=Rub Out 
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CHR 


YHYZONK MS CAD DOVOZSrRAU 


. | 


ormnemoms 


Dec 


101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 


CHR 


SNe he Se ere Se SS sig Ss Ae ae he 


DEL 


Appendix C 


Structure of External 
Microsoft FORTRAN Files 


The structure of an external MS-FORTRAN file is determined 
by its properties. The structures used in MS-FORTRAN are as 
follows: 


L, 


Formatted sequential files 


Records are separated by carriage return and linefeed 
(ASCII hex codes 0D and OA, respectively). 


Record N [i oe | Record N + 1 


Unformatted sequential files 


A logical record is represented as a series of physical 
records, each of which has the following structure: 


| L | Data <= 128 bytes | L | 


Physical record 


Each L shown above is a length byte that indicates the 
length of the data portion of the physical record. The data 
portion of the last physical record contains MOD (length 
of logical record, 128) bytes, and the length bytes will 
contain the exact size of the data portion. 
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Each of the preceding physical records will contain 128 bytes in 
the data portion, while the length byte will contain 129. For 
example, if the size of the logical record is 138: 


128 bytes 10 bytes 


One logical record 


The first byte of the file is reserved and contains the value 75, 
which has no other significance. 


3. Formatted direct files, unformatted direct files, and binary 
files 


No record boundaries or any other special characters are 
used. 
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Index 


ABS, 167 
ACOS, 170 
AIMAG, 168 
AINT, 166 
ALOG, 169 
ALOG1O0, 169 
AMAXO, 167 
AMAX1, 167 
AMINO, 168 
AMIN1, 168 
AMOD, 167 
ANINT, 166 
ASIN, 170 
ATAN, 170 
ATAN2, 170 
Absolute value functions, 167 
Actual argument, 173 
Adjustable-size array, 71 
Alphanumeric characters, 15 
Alternate return label, 62, 123 
Alternate return specifier, 60, 62, 
123 
Apostrophe editing, 147 
Arc cosine functions, 170 
Arc sine functions, 170 
Arc tangent functions, 170 
Arguments, 173 
Arithmetic 
assignments, 47, 53 
errors, 223 
expressions, 31 
IF statement, 97, 98, 99 
integer operations, 33 
operators, 32 
type conversion, 54 
Array 
adjustable-size, 71 
assumed-size, 72 
declarator 71 
dimensions, 71 


element reference, 38 

maximum size, 71 

order of elements, 72 

subscript expression, 38 
ASSIGN statement, 51 
Assigned GOTO statement, 93 
Assignment statement, 53 
Assumed-size array, 72 


Backslash editing, 149, 202 
BACKSPACE statement, 57 
Binary files, 202 
Blank 
character, significance, 15 
interpretation, 150 
BLOCK DATA statement, 46, 58 
Block IF statement, 100 
BN, edit descriptors, 150 
BZ, edit descriptors, 150 


CABS, 167 

CCOS, 169 

CDCOS, 169 

CDEXP, 168 

CDLOG, 169 

CDSQRT, 168 

CEXP, 168 

CHAR, 166 

CLOG, 169 

CMPLX, 166 

CONJG, 168 

COS, 169 

COSH, 170 

CSQRT, 168 

CALL statement, 60 

Carriage control, 143 

CHARACTER-ty ped functions. 
See FUNCTION statement. 
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Index 


Character 
alphanumeric, 15 
blanks, 15 
constant, 27 
data type, 27 
editing, 155 
expressions, 34 
standard set, 12, 15 
TAB, 16 
variable, 27 
Choosing largest value 
function, 167 
Choosing smallest value 
function, 168 
CLOSE statement, 64 
Columns, 16 
Comment lines, 17 
Common block 
saving, 119 
size, 67 
Common logarithm functions, 169 
COMMON statement, 66 
Compile time errors, 209 
Compiler control, 3 
Computational assignment 
statement, 53 
Computed GOTO statement, 94 
Conjugate of Complex argument 
function, 168 
Constants 
double precision, 25 
integer, 22 
REAL*4, 23 
REAL*8, 25 
single precision, 23 
Continuation lines, 17 
CONTINUE statement, 68 


Cosine functions, 169 


DABS, 167 
DACOS, 170 
DASIN, 170 
DATAN, 170 
DATAN2, 170 
DBLE, 166 
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DCOMPLX, 166 
DCONJG, 168 
DCOS, 169 
DCOSH, 168 
DDIM, 167 
DEXP, 168 
DIM, 167 
DIMAG, 168 
DINT, 166 
DLOG, 169 
DLOG1O0, 169 
DMAX1, 167 
DMIN1, 168 
DMOD, 167 
DNINT, 166 
DPROD, 168 
DREAL, 166 
DSIGN, 167 
DSIN, 169 
DSINH, 170 
DSQRT, 168 
DTAN, 169 
DTANH, 170 
DATA statement, 47, 69 
Data types 
basic, listed, 20 
COMPLEX%*8, 26 
COMPLEX*16, 27 
decimal, 26 
double precision, 24 
extended integer, 22 
ranks, 33 
REAL*4, 23 
REAL*8, 24 
character, 27 
integer, 22 
logical, 27 
memory requirements, 21 
DEBUG metacommand, 179, 181 
DECMATH metacommand, 26, 
179, 182 
Defining statements, 18 
Dimension declarators, 71 
DIMENSION statement, 71 
Direct 
access files, 134, 139 


Direct continued 
devices, files, 139 
DO statement, 73 
DO66 metacommand, 179, 183 
Double precision 
constant, 25 
data type, 24 
exponent, 25 
range, 25 


EOF, 171, 202 

EXP, 168 

Edit descriptors 
A, 155 
BN, 150 
BZ, 150 
D, 152 
E, 152 
Fw.d, 89, 152 
Gw.d, 153 
Gw.dEe, 153 
Iw, 152 
Lw, 155 
kP, 149 
\, 149 
S, 89, 148 
SP, 89, 148 
SS, 89, 148 
Tc, 89, 148 
TLe, 89, 148 
TRe, 89, 148 
format scan terminator (:), 89, 

149 

nonrepeatable, 88, 89, 147 
numeric, 151 
repeatable, 88, 89, 146 
types, 147 

Editing 
apostrophe, 147 
backslash, 149, 202 
character, 155 
complex, 154 
Hollerith, 147 
integer, 152 
logical, 155 
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Editing continued 

numeric, 151 

optional plus, 148 

positional, 89, 202 

real, 152 

short records, 150 

slash, 149 
Elements of I/O statements, 140 
ELSE statement, 77 
ELSEIF statement, 78 

description, 78 

in block IF statement, 100 

End of file function, 140, 171, 202 
END statement, 80 
End= 

option, 133 

specifier, 197 
ENDFILE statement, 81 
ENDIF statement, 82 
EQUIVALENCE statement, 83 
ERR= specifier, 50, 210 
Error checking. See $DEBUG. 
Error handling, 50 
Evaluation rules, 38 
Explicitly opened files, 136 
Exponent 

double precision, 25 

single precision, 24 
Exponential functions, 168 
Expressions, 8, 31 

arithmetic, 32, 38 

character, 34 

logical, 36 

relational, 35 

restrictions, 38 
External 

files, 6 

unit specifier, 135 
EXTERNAL statement, 86 


FLOAT, 166 
FILE= specifier, 201 
Files 
access methods, 136 
binary, 202 
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Files continued 

commonly used structures, 136 

device association, 139 

direct access, 134, 139 

explicitly opened, 136 

external, 6, 132 

formatted, 133 

internal, 6 132, 134 

keyboard and screen 

(*files), 1386 

limitations, 139 

names, 132 

NEW, 138 

OLD, 138 

position, 132 

properties, 6, 1382, 134 

sequential access, 132, 134 

special properties, 134 

structure, 133 

system, 132 

unformatted, 131, 137 
FLOATCALLS metacommand, 

184 

Formal argument, 173 
Format controller, 146 
Format scan terminator, 89, 149 
Format specification, 141 
FORMAT statement, 88, 141, 147 
Formatted files, 132 
Formatted records, 131 
FORTRAN 

character set, 15 

file system, 131 

I/O system, 5 

identifiers, 9, 28 

learning about, ix 

main program, 4, 19, 163 

names, 9, 28 

program units, 4, 19, 151 

statements, 7, 18, 41 

subprogram, 19 

subroutines, 4, 19, 163 
Function 

absolute value, 167 

arc cosine, 170 

arc sine, 170 

arc tangent, 170 
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Function continued 


arguments, 173 

choosing largest value, 167 

choosing smallest value, 168 

common logarithm, 169 

conjugate of complex 
argument, 168 

cosine, 169 

description of, 4, 164 

EOF (end of file), 140, 171 

exponential, 168 

external, 164 

hyperbolic cosine, 170 

hyperbolic sine, 170 

hyperbolic tangent, 170 

imaginary part of complex 
argument, 168 

intrinsic, 108, 165 to 172 

lexically greater than, 171 

lexically greater than or equal, 
171 

lexically less than or equal, 171 

lexically less than, 171 

name, 90 

natural logarithm, 169 

nearest integer, 166 

nearest whole number, 166 

positive difference, 167 

REAL*8 product, 168 

recursive call, 92 

reference to, 164 

remaindering, 167 

sign, 167 

sine, 170 

square root, 168 

tangent, 164 

transfer of sign, 167 

truncation, 166 

type conversion, 166 

types of, 154 

FUNCTION statement, 90, 165 


Generic intrinsics. See Intrinsic 
functions. 

Global name, 29 

GOTO statement, 98, 94, 96 


Hollerith editing, 147 
Hyperbolic 
cosine functions, 170 
sine functions, 170 
tangent functions, 170 


IABS, 167 
ICHAR, 166 
IDIM, 167 
IDINT, 166 
IDNINT, 166 
IFIX, 166 
INT, 166 
ISIGN, 167 
IF-levels, 101 
IF statement, 97, 98, 99 
IF THEN ELSE statement, 100 
IMPLICIT statement, 103 
Implied DO lists, 142 
INCLUDE metacommand, 179, 
185 
Initial lines, 17 
Input entity, 142 
Input/Output statements 
BACKSPACE statement, 57 
carriage control, 143 
character array element, 34, 
134, 135 
character variable, 34, 134,135 
character expression, 34 
CLOSE statement, 64 
ENDFILE statement, 81 
END= option, 133 
entities, 142 
file specifier, 105 
format specifier, 141 
FORMAT statement, 88 
iolist, 115, 127, 140, 142, 
145, 200 
IOSTAT= specifier, 50, 106 
inquiry specifiers, 105 to 108 
OPEN statement, 109 
READ statement, 114 
REWIND statement, 118 
statements, 5, 8, 48, 140 
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Input/Output statements 
continued 

unit specifier, 140 

WRITE statement, 127 
INQUIRE statement, 105 
Integer 

constants, 22 

data types, 22 

editing, 152 

expression, 141 

variable name, 93 
INTEGER?®2, 22, 165 
INTEGER*4, 22, 165 
Interactive programming 

(\) edit descriptor, 149 

BN edit descriptor, 150 
Internal 

files, 6, 132, 134 

unit specifier, 135 
Internal representations. See 

Data types. 

Intrinsic function 

list of, 166 to 171 

name, 108 
Intrinsic functions 

ABS, 167 

ACOS, 170 

AIMAG, 168 

AINT, 166 

ALOG, 164 

ALOG10, 169 

AMAXO, 167 

AMAX1, 167 

AMINO, 168 

AMIN1, 167 

AMODS, 166 

ANINT, 170 

ASIN, 170 

ATAN, 170 

ATAN2, 170 

CABS, 167 

CCOS, 169 

CDCOS, 169 

CDEXP, 168 

CDLOG, 169 

CDSQRT, 168 
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Intrinsic functions continued 


CHAR, 166 
CLOG, 169 
CMPLX, 166 
CONJG, 168 
COS, 169 
COSH, 170 
CSQRT, 168 
DABS, 167 
DACOS, 170 
DASIN, 170 
DATAN, 170 
DATAN2, 170 
DBLE, 166 
DCMPLX, 166 
DCONJG, 168 
DCOS, 169 
DCOSH, 170 
DDIM, 167 
DEXP, 168 
DIM, 163 
DIMAG, 168 
DINT, 166 
DLOG, 169 
DLOG1O0, 169 
DMAX1, 167 
DMINI1, 168 
DMOD, 167 
DNINT, 166 
DPROD, 168 
DREAL, 166 
DSIN, 169 
DSINH, 170 
DSQRT, 168 
DTAN, 169 
DTANH, 170 
EOF, 167, 202 
EXP, 168 
FLOAT, 166 
TABS, 167 
ICHAR, 166 
IDIM, 167 
IDINT, 166 
IDNINT, 166 
IFIX, 166 
INT, 166 
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ISIGN, 167 

LGE, 171 

LGT, 171 

LLE, 171 

LLT, 171 

MAXO, 167 

MAX1, 167 

MINO, 168 

MIN1, 168 

MODS, 167 

NINT, 166 

SIGN, 167 

SIN, 169 

SINH, 170 

SNGL, 166 

SQRT, 168 

TAN, 169 

TANH, 170 
INTRINSIC statement, 108 
I/O. See Input/Output statements. 
iolist, 140, 142, 145 
IOSTAT= specifier, 50, 106 


LGE, 171 

LGT, 171 

LLE, 171 

LLT, 171 

Label, alternate return, 62, 123 

Label assignment statement, 53 

LARGE metacommand, 179, 186 

Language overview, 1 

Learning about FORTRAN, ix 

Lexically greater than function, 
171 

Lexically greater than or equal 
function, 171 

Lexically less than function, 171 

Lexically less than or equal 
function, 171 

Limitations, 139 

Lines, 11, 16 

LINESIZE metacommand, 179, 
188 

LIST metacommand, 179, 189 


List-directed 
input, 156 
output, 159 
Local name, 29 
Logical data type, 27 
Logical expressions, 36 
Logical .FALSE., 27 
Logical IF, 99 
Logical operators 
-AND., 36 
EQV., 36 
.NEQV., 36 
.NOT., 36 
.OR., 36 
Logical .TRUE., 27 


MAXO, 167 

MAX1, 167 

MINO, 168 

MIN1, 168 

MODS, 167 

Main program, 159 

MESSAGE metacommand, 190 

Metalanguage commands 
available, 3 
$DEBUG, 179, 181 
$DECMATH, 179, 182 
$DO66, 179, 183 
$FLOATCALLS, 179, 184 
$INCLUDE, 179, 185 
$LARGE, 179, 186 
$LINESIZE, 179, 188 
$LIST, 179,189 
$MESSAGE, 179, 190 
$NODEBUG, 181 
$NOFLOATCALLS, 179 
$NOLIST, 189 
$NOTLARGE, 186 
$NOTSTRICT, 194 
$PAGE, 179, 191 
$PAGESIZE, 179, 192 
$STORAGE, 179, 193 
$STRICT, 181, 194 
$SUBTITLE, 181, 195 
$TITLE, 181, 196 


Index 


NINT, 166 
Name 
common block, 66 
common data block, 30 
external subroutine, 86 
formal argument, 123 
global, 29 
integer variable, 93 
intrinsic function, 108 
local, 29 
program, 113 
restrictions, 9 
subroutine, 60, 123 
symbolic, 126 
undeclared, 30 
user-defined, 123 
Natural logarithm functions, 169 
Nearest integer functions, 166 
Nearest whole number functions, 
166 
NEW files, 138 
NODEBUG metacommand, 170 
NOFLOATCALLS 
metacommand, 184 
NOLIST metacommand, 189 
Nonrepeatable edit descriptors, 
89, 147 
Normal termination, 64 
Notation, 15 
FORTRAN, 15 
statement syntax, viii 
NOTLARGE metacommand, 186 
NOTSTRICT metacommand, 194 
Numeric editing, 151 
OLD files, 138 
OPEN statement, 109 
Operators 
arithmetic, 32 
classes, 38 
logical, 36 
precedence, 36 
relational, 35 
Output 
entities, 142 
See also Input/Output. 
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Index 


PAGE metacommand, 179, 191 
PAGESIZE metacommand, 179, 
192 
PARAMETER statement, 111 
PAUSE statement, 112 
Positional editing, 89, 148 
Positive difference functions, 167 
Precedence of operators, 36 
PROGRAM statement, 113 


Radix specifier (#), 22 
READ statement, 114 
Reading short records, 150 
Real 

constant, 24 

editing, 152 
REAL*4, 23, 165 
REAL*8, 24, 165 
REC= option, 134 
Records 

endfile, 131 

formatted, 131 

properties, 6 

short, 150 

unformatted, 131 
Recursive functions calls, 92 
Reference manual organization, 

vil 

Relational 

expressions, 35 

operators 


Remaindering functions, 167 
Repeat 

factor, 69 

specification, 88 
Repeatable edit descriptors, 89, 

146 

RETURN statement, 116 
REWIND statement, 118 
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SIGN, 167 
SIN, 169 
SINH, 170 
SNGL, 166 
SQRT, 168 
SAVE statement, 119 
Scale factor editing, 89, 149, 152 
Sequential properties, 134 
Short records, 150 
Sine functions, 169 
Single precision data type, 23 
Slash editing, 89, 149 
Specification statement, 45, 56 
Specifiers on I/O statements. See 
Input/Output statements. 
Square root functions, 168 
Statement 
arithmetic IF, 97 
ASSIGN, 51 
assigned GOTO, 93 
assignment, 53 
BACKSPACE, 57 
BLOCK DATA, 46, 58. 
block IF, 100 
CALL, 60 
categories, 7, 45 
CLOSKE, 64 
COMMON, 66 
computed GOTO, 94 
CONTINUE, 68 
DATA, 47, 69 
definition, 18 
DIMENSION, 71 
directory, 51 
DO, 73 
ELSE, 77 
ELSEIF, 78 
END, 80 
ENDFILE, 81 
ENDIF, 82 
EQUIVALENCE, 83 
EXTERNAL, 86 
FORMAT, 88 
FUNCTION 90, 165 
functions, 164, 173 


Statement continued 
GOTO, 93, 94, 96 
IF, 97, 98, 99 
IF THEN ELSE, 100 
I/O, elements, 140 
IMPLICIT, 103 
INQUIRE, 105 
INTRINSIC, 108, 165 
labels, 52 
lines, 16, 17 
logical IF, 99 
nesting rules, 102 
OPEN, 109 
ordering, 18 
PARAMETER, 111 
PAUSE, 112 
PROGRAM, 113, 165 
READ, 114 
RETURN, 116 
REWIND, 118 
SAVE, 119 
specification, 45, 46 
statement function, 120 
STOP, 122 
SUBROUTINE, 128, 165 
Type, 125 
unconditional GOTO, 96 
WRITE, 127 
Statement function statement, 
120 
STATUS= specifier, 210 
STOP statement, 122 
STORAGE metacommand, 179, 
193 
STRICT metacommand, 180, 194 
SUBROUTINE statement, 123 


Index 


Subroutines, 4, 165 

Subscript expression, 38, 199 

SUBTITLE metacommand, 180, 
195 

Symbolic name, 126 

Syntax notation, viii 


TAN, 169 
TANH, 170 
TAB character, 16 
Tangent functions, 169 
Terminating format control(:), 149 
Terms and concepts, 13 
TITLE metacommand, 180, 196 
Transfer of sign functions, 167 
Truncation functions, 166 
Type conversion 
arithmetic operands, 33 
functions, 166 to 171 
real values, 55 
Type statement, 125 


Unconditional GOTO statement, 

Undeclared FORTRAN names, 
30 

Unformatted files, 131, 137 

UNIT= specifier, 58, 105, 106 


Units, 135 
User-defined names, 123 


WRITE statement, 127 
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